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PREFACE 



The reader is expected to be familiar with OS/8 
which is described in 



Introduction to Programming , Chapter 9 
OS/8 Software Support Manual (DEC-0 8-MEXB-D) 



v 




1.0 



INTRODUCTION 



LIBMSH is the MASH LIBRARY program, written in FORTRAN IV (RTFS), used 
to catalog pertinent information for individual MASH files. It can 
also delete entries, replace entries, move entries from one catalog 
to another, re-patch a catalog by eliminating empty entries due to a 
delete, list the index of a catalog or the information in a given en- 
try, and search for specific entries. 



The MASH LIBRARY package is composed of four programs: a transfer 

program, a print program, an allocate program, and the MASH library 
program. Each of these four programs is explained in detail in the 
following sections. 



The LINCtape provided with the MASH library package contains the 
following : 

a. An OS/8 tape system plus three OS/8 system programs — 
ABSLDR.SV, PIP.SV, BUILD. SV. The OS/8 system is a LINCtape 
system (tape units are referred to as DTA0, DTA1 , . . . , DTA7 ) 
and can not be run from any disk. To create an OS/8 system 
on disk, refer to the section on BUILD in Chapter 9 of 
Introduction to Programming, 1972 . 

b. The binary programs used by the MASH library. 

c. Six programs — EZGEN.SV, FORLIB.RL, FORIO.SV, FORRTS . FT , 
LOAD . SV , MRKRTS.SV, which are also a part of the RTPS 
FORTRAN IV package, are necessary in order to run two of 
the programs in the MASH library package which require 
the loader (namely: PRINT and LIBMSH) . It is strongly 
suggested that these programs reside on the device con- 
taining the OS/8 system. 



NOTE 

When using PIP.SV to transfer any of these 
files from one device to another, always 
use the /I switch. 

It is necessary to configure the Run Time system in order 
to run the two FORTRAN programs (PRINT and LIBMSH) . Refer 
to Appendix G of the RTPS FORTRAN IV User^ Manual (refer to 
EZGEN and MRKRTS) . Once the Run Time System is conf igur ed , 
the loader (LOAD) may be used to create the load modules 
(see Sections 3.2.1 and 3.3.1 of this manual). 

NOTE 

If FORRTS. FT and FORLIB.RL are not on the 
systems device, then careful reading of the 
LOADER (re: specifying a library file and 
specifying alternate run time support) should 
be carried out before attempting to build the 
load modules. 
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2.0 HARDWARE CONFIGURATION 



All programs in this package run under the control of the OS/8 
Operating System and in a minimum hardware configuration which 
includes 8K core memory, a console Teletype 1 , two LINCtape transports, 
and a Floating Point Processor (FPP) . Other desirable hardware 
includes a line printer and a disk. 

3 . 0 PROGRAMS 

This section provides a description of each of the four programs, 
along with compile/assemble/load instructions, examples, and input/ 
output dialogue for each of the programs. All examples assume an OS/8 
disk operating system. 

3.1 The Transfer Program 

Since all RTPS FORTRAN programs which run under control of OS/8 re- 
quire OS/8 compatible files, this program is used to transfer AIPOS 
(MASS/INTENSITY) files with double precision data values to OS/8 files 
with floating point data values. If the file to be transferred is 
not a MASS/INTENSITY file, the following message is written on the 
Teletype, and a different file may be entered. 

NOT M/I FILE 

3.1.1 Create a SAVE File: 

Save the binary of the transfer program TRANS, BN as follows: 2 

. R ABSLDR J 
f TRANS. BN $ 

J SAVE SYS TRANS. SV 12000-12 5 77 ; 12 000^ 



1 Teletype is a registered trademark of the Teletype Corporation 

2 System output is underlined throughout this manual. $ = ALT MODE 
key. ) = RETURN key. 
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3.1.2 Input/Output : 



Use the following input sequence to make a transfer: 



. R TRANS J 
^odev:oname.ex< J 
UNIT: u \ 

STBLK : sj 
LEN; lnj 



where: 



odev = output device for the transfer (OS/8 tape) . 
oname.ex= name and extension of the OS/8 file, 
u = LINCtape unit number (0,1,..., 7) of AIPOS file, 

s = starting block of AIPOS file to be transferred. 

l n = number of blocks in length of this AIPOS file. 



The output of TRANS is an OS/8 floating point file containing 
MASS/INTENSITY pairs. 



Example: 

Assume a partial listing of the index of an AIPOS data tape on LT4 is 

WHEE.001 452 3 

WHEE .$02 455 4 



Now, transfer each of the above files (assumed to be MASS/INTENSITY 
files) to an OS/8 tape on unit 2, and keep the same names (refer to 
NOTE 3 on next page ) * 
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.R TRANS ) 

^ DTA2 :WHEE.01< J 
UNIT: 4^ 

STBLK: 452 J 
LEN: 3J 

* DTA2 : WHEE ,02<J 
UNIT: 4j 

STBLK: 455^ 

LEN: 4 J 



* +C 1 



NOTES 

1* The output device may be disk as well as LINCtape. 

2. The AIPOS files to be transferred must reside on 
LINCtape , 

3. OS/8 allows a six-character file name with a 
two-character extension; whereas AIPOS allows a 
six-character file name with a three-character 
extension. 



3.2 The Print Program 



This program is used to print the MASS /INTENSITY pairs for a given 
OS/8 file. 



3.2.1 Link and Load: 



Link and load the Print program source, PRINT. RL, as follows: 



. R LOAD J 

^PRINT . LD , LPT : <PRINT.RL /Dj 

at this point the Print program is ready to accept the files 
to be printed, 

j^idev: iname. ex/ 5 J 



where: idev = input device of the program to be printed. 

iname „ ex- name and extension of the program to be printed, 

l/ 5 = logical device used by the Print program for 

> input. Print equates this number to the 

file defined by idev: iname . ex. 



1 fc » CTRL/C which is typed by holding down the CTRL key while typing 
the C key . 
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3.2.2 Input/Output : 



Assuming a Load program (PRINT. LD) exists, the only input required is 
the file to be printed (as created in section 3.2.1), 

. R LOAD J 
t PRINT . ld/dJ 
^idev : iname . ex/5 ) 

The output is to the line printer, or if no line printer is available, 
to the Teletype. It consists of two columns of data. The first 
column contains MASS values times ten (MASS *10) , and the second 
column contains the corresponding intensity values. 

Example: 

Print the MASS*10/INTENSITY pairs for each file transferred to 
the OS/8 tape in the TRANS example. 

.R LOAD^ 
t PRINT.LD/D^) 

*DTA2: WHEE.fi/5j 

.R LOADJ 

^PRINT.LD/Dj 

*DTA2:WHEE.02/5^) 



3,3 The Allocate Program 

Use the allocate program to open and close a file of user-specified 
unit, name and length, so that the file can be initialized by the 
function INIT (refer to section 3.3.2) and used for a new catalogue. 



3.3.1 Create a SAVE File: 



Save the allocate program binary, ALOCAT.BN, as follows: 



.R ABSLDR > 

^ALOCAT . BN$ 

JSAVE SYS ALOCAT.SV 12000-12177 ; 12 000^ 
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3.3.2 Input/Output : 



Use the following input sequence to allocate a file. 

ALOCAT J 1 

*odev : oname . ex [nb] <J) 



where: odev = mass storage device to contain new catalogue, 
oname. ex = name and extension of new catalogue. 

[nb] = the length of the new catalogue in blocks. 



The output of ALOCAT is a permanent file of user-specified unit, 
name, and length; which can now be accessed as a catalogue by LIBMSH. 

Example: 

Create a catalogue 96 blocks long on LINCtape unit 6 (be sure the 
unit is WRITE ENABLED) and name the catalogue, CATALG.01. 



.R ALOCAT J 

*DTA6 : CATALG . 01 [ 9 6 ] < J 
*+C 



NOTE 



The largest ca talogue. that can al losaJ^id is 
Z5J L blocks '. JSi nce there are four^3t£logue. 
eja^ TesTElock, t his gives a total of 1020 en- 
t r i e s /catalogue. — • • • 



3 . 4 The MASH Library Program 



This program (LIBMSH) makes and manipulates entries in a specific 
catalogue. in all, the program LIBMSH can perform 8 separate functions. 
Each of these functions is discussed in the following paragraphs. 

The signal to enter a function (or to type CTRL/C to abort) is the 
word 

CMP 

which is printed on the Teletype. 

3.4.1 Link and Load 

To create one program from the binaries of LIBMSH. RL, ENTER. RL, 

INIT.RL, INTERP.RL, XLIST.RL, DELETE. RL, SQUISH .RL, ■ MOVE . RL , NEXT . RL , 
GETBLK.RL, PUTBLK.RL, COMPAR.RL, STRNG.RL and CCGET.RL type: 

'V 

NOTE 

The binaries must be on the system device (SYS) 
for the following LOAD and LINK sequence to work. 



The open bracket ([) is produced by holding down the SHIFT key while 
sS^FT/'M? 1-e,/ SHIFT /K) ; the close bracket is produced by typing a 





JR LOAD) 

*LIBMSH . LD , LPT :< LIBMSH, STRNG, CCGET/O ) 
t ENTER ) 



*INTERP J 
*XLISTJ 
^DELETEJ 
^SQUISH \ 
^MOVE/OJ 
*COMPAR ) 
^XNIT \ 
*NEXTV 
^GETBLIJ) 
*PUTBLK \ 

E/d; 



-V 



w 

if 






yj 



(If LIBMSH is to be used now, the /D indi- 
cates that logical devices are to be speci- 
fied; (refer to INPUT/OUTPUT Section 3.4.2) 
otherwise, use CTR L/C to return to the 
Monitor . ) 



3.4.2 Input/Output: 



Anywhere from one to three files can be used during the course of 
running LIBMSH. LD. FORTRAN has only one way to refer to input/output 
devices and files; and this is by a logical device number. The 
assignment of these numbers takes place at LOAD time. Logical 
device number 6 must always be specified, numbers 5 and 7 depend 
on the functions to be specified. 









0 




Lexical Device Numbers 

\r 5 - This number is associated with the OS/8 MASH file that is 

to be used in a SEARCH, or is to be ENTERed into the library 
catalogue on logical unit 6. 






6 



This number is associated with the particular catalogue 
that will receive a file via a SEARCH or an ENTER. 



M 




1 



This number is associated with a second catalogue. The 
purpose of this catalogue is to receive files via a MOVE. 
Each M@VE is from logical unit 6 to logical unit 7. 



In general then, assuming a LOADed program (LIBMSH. LD) exists; and a 
MASH file: FILE. 01 is on SYS with catalogues: CATALG. 01 on DTA1 and 
CATALG. 02 on DTA5 , the commands are: 



.R LOADJ 

^LIBMSH . LD/D J t (IVl'lfofi) 

*FILE.0fl/5/C ) fc |, Ji/YA 

*DTA1 : CATALG . 01/6/C ) ~ u ' u ~ /)/c , 

^DTA5 : CATALG . 92/1 J r> 1 5 M P \ ■ <?! /L 

CMD 
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It should be noted as shown in the previous example that /C is needed 
whenever another logical device must be assigned. 

The output of this last program is determined by which of the eight 
functions is specified. In like manner, each function re- 
quires its own input, as described in the following paragraphs. 

The EIGHT LIBRARY Functions: 

IN IT Function Call: INnJ ; where n=6,7 

INIT initializes a catalogue for the first time or re-initializes an 
existing catalogue. A catalogue which was created by the program 
ALOCAT needs to be initialized befox§.. v . it can be used. Upon loading 
of LIBMSH, a check is immediately made to see if the catalogue des- 
ignated by logical unit 6 is initialized. If it is not, the user is 
forced to initialize it immediately. The same check is made on the 
catalogue designated by logical unit 7 whenever it is referenced. 

(Refer to NOTE on next page.) 

Associated with each catalogue is a HEADER block which contains 17 
floating point words of information. Word 1 (the first word) con- 
tains the number, 1934 which signals that the catalogue is initialized. 
Word 2 contains the number of the next available entry slot in the 
catalogue. Words 3 and 4 contain a maximum of twelve characters 
which the user enters as the name of the catalogue. For example. 

Program Request: NAME OF CATALOGUE- -12 CHARS MAX / 

Example Response: CATALG. 91 j 

Words 5 and 6 contain a maximum of twelve characters which the user 
enters as the DATE. 

Program Request: DAT%-12 CHARS MAX J 

Example Response: 6/21/72 J 

Words 7-17 contain a maximum of 66 characters which the user enters 
as descriptive information. 

Program Request: USER MESSAGE--66 CHARS MAX 

Example Response: THIS CATALOGUE HOLDS ALL BENZENE COMPOUNDS^ * 







NOTE 



1. If an INIT is automatically forced 

a message is printed at the Teletype. 

For example, assuming logical device 6. 

LOGICAL DEV 6 IS BEING INITIALIZED 

2. Whenever initialization is requested, 
the user is given a chance to recon- 
sider his request just prior to the 
actual initialization of the catalogue. 

Program Request: ARE YOU SURE7--Y OR N 

Response: Y j carries out the ini- 

tialization. 

N j ignores all previously 

* entered information and 

leaves the catalogue as 
it was before the func- 
tion call was requested 



ENTER Function Call: EN J 

The ENTER function encsdes a MASH file (floating point MASS/INTENSITY 
pairs) either automatically or manually; and collects user response 
information to create an entry which is placed in a catalogue. 

At load time the catalogue that is to receive the entry must be des- 
ignated as logical unit 6, and if a file is to be automatically en- 
coded, it must be the file designated as logical unit 5. 

As soon as the function call ENTER is issued, the Teletype responds 
with: 

AUT® (1) @R MANUAL (2) ENCODE — II 1 



The II indicates that the user types his response as a single digit . 

A response of 1 indicates automatic encoding which will result in 
the eight highest MASS/ INTENSITY pairs (or fewer if the file contains 
less than eight pairs) , being found. A digit response other then 
1 indicates that the user wishes to enter eight (or less) charac- 
teristic MASS/INTENSITY pairs manually. 

If Auto encode (1) is requested, the next question is: 

TOLERANCE : PELT (M) — F3 . flf 1 

1 Refer to Appendix A for a detailed explanation of user responses. 
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When the eight highest peaks are being found, only those pairs are 
considered whose masses lie within the specified tolerance of a 
whole numbered mass. Each chosen mass is integerized and if more 
than one MASS /INTENSITY pair has the same mass number, the pair with 
the highest intensity is chosen. For example, suppose the tolerance 
is 0,3 and the three M/I pairs are (150.8, 2531), (151.3, 333) and 
(152.4, 467). Only the first and second pairs lie within the toler- 
ance, and they become (151, 2531), (151, 333). Since the first pair 
has a larger intensity, it is kept and the second pair eliminated. 

When auto encode is complete, each of the eight intensities is S 
changed to a percent relative to the largest intensity. 

If MANUAL encode (2) is requested, the question displayed is: 

HOW MANY PEAKS (8 IS MAX) — II 

A response of 0 or 9 is interpreted as 8. The next question requests 
the mass and intensity for the number of peaks (NUMPK) in 14 and F6.0 
format . 

MASS VS INTENSITY 1 SET PER LINE [NUMPK] TIMES- - 14 ,F6 . 0 

Once the eight (or less) MASS/INTENSITY pairs have been entered, the 
characteristic information for this entry is requested. 

ENTER NAME, FORMULA, ETC-- 30 CHARS MAX 

If the catalogue is not empty LIBMSH gives the option of replacing a 
catalogue entry. 

DO YOU WISH TO REPLACE A CATALOGUE ENTRY — Y OR N ^ 

A response of Y^ outputs the following question to the Teletype: 
WHICH ENTRY?-- 14 

If a nonexistent entry number is entered the question is repeated. 

If an entry is not to be replaced type (or any character except Y) . 
The entry is next placed in the catalogue, the message CMD is printed 
and another function may be issued. 
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SEARCH Function Call: SE^} 

This function is similar to ENTER. Its purpose is also to encode a 
MASH file either automatically or manually and eventually to enter 
it into the catalogue on logical unit 6 if desired. However, its main 
purpose# after the encoding is finished# is to find all entries in 
the catalogue which match it exactly or which match it within the 
specified intensity tolerance and the required number of peaks (#HITS) . 

SEARCH displays the question: 

TOLERANCE: PELT (I) , #HITS — ; , F3 . 0 , 12 

^ K 

The intensity-tolerance is entered in F3.0 format# and the minimum 
number of peaks (HITS) that must match up is entered in 12 format. 

A report of all entries that are found to match up within the user 
tolerances is sent out to the line printer (or Teletype by default) . 

The report of each entry consists of the entry number# the 30 character 
identification and the #HITS . If the search is unsuccessful# the 
message NO MATCHES is output. 

The encoded entry can now be entered into the catalogue. 

PUT ENTRY IN CATALOGUE?-- Y OR N 

An answer of requests the remaining information needed to complete 
the entry (see ENTER) . Answer of N j (or any character except Y) # 
terminates the function , 

XLIST Function Call: XLn^ where n=6 or 7 

Essentially, XLIST lists the index of a catalogue on Logical Unit 6 
or 7. The 17 words of header information of the catalogue (described 
in INIT) # along with the entry number# NAME# FORMULA# etc.# (described 
in ENTER) , for each entry of the catalogue are listed on the line 
printer (or Teletype by default) . XLIST provides the option of 
listing the entire index or entries between specified entry-numbers. 
Response to the following question determines the index printed. 

LO & HI LIMIT OF ENTRY NUMBERS — 14# 14 

If the high limit is 0 or is greater than the last entry in the 
catalogue# its value defaults to the last entry number. If the low 
limit is 0 , its value defaults to 1 . If the low limit is greater 
than the high limit# the low limit takes on the value of the high 
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limit. For example, assuming a catalogue has 
interprets the user entries as shown below 1 : 


twelve 


entries, 


XLIST 


USER ENTRY: LO HI PROGRAM 


VALUES : 


LO 


HI 






2 


6 


ujuljIJ 




1 


12 


3. J 




3 


12 


J 




1 


12 


.J 




1 


5 


a— 1 1 — «5 . lj c-j 5 




5 


5 


i — 1 1 — i a — 1 8 4 J 




4 


4 


3 • g i 23^ 




3 


12 



A catalogue entry that maybe empty (refer to DELETE) , is indicated 
on the printout by: 

[num] UNUSED- 

where num = number of the entry. 

If no entries exist in the catalogue, the message 
NO ENTRIES IN THIS CATALOGUE 

is output to the Teletype and the function is terminated. 

CLIST Function Call: CLnJ where n = 6 or 7 

CLIST is similar to the XLIST function, but lists the contents of each 
entry of a catalogue found on logical unit 6 or 7 . As in XLIST, 
there is an option to list between specified entry numbers and out- 
put is to the line printer (or Teletype by default) . 

LO & HI LIMIT OF ENTRY NUMBERS — 14 , 14 

As in XLIST, if the high limit is $ or is greater than the last 
entry in the catalogue, its value defaults to the last entry num- 
ber. If the low limit is 0, its value defaults to 1 . If the low 
limit is higher than the high limit, the low limit takes the value 
of the high limit. 

If the catalogue contains no entries, the message: 

NO ENTRIES IN THIS CATALOGUE 

is output to the Teletype before the function terminates. 

1 i_j = space 
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DELETE Function Call: DEnj where n = 6 or 7 

This function deletes the entry specified in response to the question: 
ENTRY NUMBER- -I 4 

from a catalogue on logical unit 6 or 7 . Only one entry can be de- 
leted at a time. 

If an entry number is specified that is greater than the last entry 
number, the message 

NUMBER [mm] IS LAST ENTRY 

and a line feed is output and the system waits for the correct entry. 
If a delete is attempted on an empty catalogue, the message 

NO ENTRIES IN THIS CATALOGUE 

is output . 

When the entry is deleted, a line feed to the Teletype signals that 
another numbered entry can be deleted. A response of ffj or just j 
terminates the DELETE function. 



SQUISH 



Function Call: SQnj where n = 6 or 7 



When entries, other than the last entry of a catalogue, are deleted, 
holes, or empty entries are left in the catalogue. Executing 
a SQUISH on logical unit 6 or 7 , causes all entries to be re-packed 
towards the front of the catalogue and eliminates all empty entries. 
For example 



Before: CMP 

XL 6 J 

L O & HI LIMIT OF ENTRY NUMBERS — 14 , 14 

3 



CATALG . 1 
5/11/72 

THIS CATALOGUE IS A REAL CAT. 



ENTRY IDENTIFICATION 

1 WHEE . 01 TOL : . 1 

2 UNUSED 

3 WHEE. 02 TOL. -.3 

4 UNUSED 

5 WHEE . 02 TOL : . 1 



l Old catalogue listed 
/ on line printer. 
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SQUISH 

Command : CMP 

SQ6J 

After: CMP 

LQ & HI LIMIT OF ENTRY NUMBERS — I 4 , I 4 

J 



CATALG . 1 
5/11/72 

THIS CATALOGUE IS A REAL CAT. 
ENTRY IPENTIFI CATION 

1 WHEE . 01 TOL : . 1 

2 WHEE. 02 TOL:. 3 

3 WHEE. 02 TOL : . 1 

CMP 

tc 



New catalogue listed 
on line printer. 



J 



MOVE Function Call: MO^) 

This function moves a contiguous set of entries from the catalogue 
on logical unit 6 to the catalogue on logical unit 7. The moved 
files are placed at the first available entry designated by word 2 
of the header block. This function allows movement of a set of en- 
tries or duplication of an entire catalogue. MOVE outputs the ques- 
tion: 



Lf) & HI LIMIT #F ENTRIES T# M»VE--I4,I4 
The same rules for inputting numbers apply to MOVE as apply to XLIST. 

If the catalogue is empty, the message 
NO ENTRIES IN THIS CATALOGUE 



is output and the function terminates. 




NOTE 



1. When the program LIBMSH is running, any illegal function 
call (such as XL2, DE, DI, LC , etc.) causes the output 
of the message 

CMP ERR 

and the CMD question is asked again. 

2. When printing (XL I ST, CLIST, etc.), a string of ASCII 

characters on the Teletype (not line printer) that 
were previously entered into the header block during 
an IN IT, or when a file was entered into a catalogue, 

a filler of blanks is typed out whenever fewer than 

the maximum number of characters were entered origin- 
ally. This is due to the limitations of A-format in 

FORTRAN . 

3. Care must be taken when entering numbers as responses 
to questions or when entering data values. An in- 
valid character such as a letter (if not corrected 
before typing the RETURN key) causes a Fortran system 
fatal error and control returns to the OS/8 Monitor 
immediately . 
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APPENDIX A 



RESPONSE FORMAT 



It is sometimes necessary to respond to a Teletype question by typing 
one or more integers and/or one or more real numbers * This kind of 
response is indicated at the end of a question by 

— 14 ,F6 . (I 

for example? or 

“II 



In any event, the letter I means that an integer is expected and 
the number following the I indicates the maximum number of char- 
acters which may be typed to enter the integer. In like manner the 
letter F means an integral or real number may be entered. The 
number following F and preceding the decimal point is the 
maximum number of characters (including a decimal point if one is 
used), that can be entered. 



NOTE 

1. A comma, as in the first example above 
means: type a space, comma or any char- 
acter to separate the numbers being 
entered . 

2. Spaces entered at the Teletype are in- 
terpreted as zeros and if input is 
terminated before the maximum number 

of characters is entered, the remaining 
characters are supplied as zeros. 

3. A carriage return terminates a line of 
input. However, it is not counted as 
a character. For example, 14 allows 
four characters and a carriage return. 



Examples illustrating each type of user input are given below: 



FORMAT 


USER INPUT 


PROGRAM 

INTERPRETATION 


14 


0035 J 


35 




l_ii_j35 ) 


35 




t_j35 0 


35 




35. 


35 




35.J 


35 




3 D 


35 00 
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PROGRAM 


FORMAT 


USER INPUT 


INTERPRETATION 


11 


6j 


6 




J 


0 


F3 .0 


.2 J 


.2 


0- 2J 


.2 




u,^ 2J 


9.0 


14, 14 


i i i^-'2 t _jt m i 7 J 

i_j 12 . i_j7 .00,*) 


12 & 7 
12 & 7 




12. 0^0007 J 


12 & 7 




12.0, 0007J 


12 & 7 




127j 


1270 & 0 




12 . 0i_j7 J 


12 & 7000 




12 . 04_j7 . J 


12 & 7 


14 ,F6 .0 


i-jl23._j367.3j 


123 & 567.3 




123.i_j&_j 567.3J 


123 & 567.3 




i 1 123, ..j j i 567. 3^ 


123 & 567. 


F3 .0,12 


1 • 3« — i s s 8 J 


1.3 & 8 




1.3 8.J 


1.3 & 8 




1 . 3 8 J 


1.3 & 80 




i — . 1 1.3 » ^ 8 ^ 


1. & 8 



NOTE 

The form in which a number is entered to 
a program greatly affects the way it is 
stored. For example, with an 14, F6.J0 
format, the value of the numbers entered 
(24 and 6 for example) can vary from 24 
to 2400 and 6 to 600,000 (depending 
on the spaces and punctuation used) . 
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APPENDIX B 



ASSEMBLY INSTRUCTIONS 



Assemble the program sources (if available) .as follows: 



TRANS . PA 



.R PAL8J 

^TRANS.BN, LPT:<TRANS .PAj 



PRINT. FT 

JR F4 J 

*PRINT . RL<PRINT . FT/L J 



ALOCAT . PA 

.R PAL 8^) 

^ALOCAT . BN , LPT : < ALOCAT . PA J 



LIBMSH . FT 1 
.R F4J 

^LIBMSH .RL, LPT : < LIBMSH .FT/L/N^ 



ENTER. FT 1 

.R F4 J 

RENTER. RL, LPT : <ENTER. FT/L/N^ 

INIT.FT 1 

.R F4 S 

*INIT.RL,LPT: <INIT . FT/L/N J 

INTERP .FT 1 
.R F4 J 

^INTERP . RL , LPT : <INTERP . FT/L/N J 



XLIST . FT 1 

• R F4 J 

^XLIST.RL,LPT: <XLIST . FT/L/N J 



DELETE. FT 1 
• R F4J 

^DELETE . RL , LPT : <DELETE . FT/L/N J 



1 This program must be compiled using the L and N switches. The 
line numbers of the program were suppressed to enable the pro- 
gram to meet the core requirement without further expansion of 
the overlaying scheme. 
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SQUISH. FT 1 

• R F4J 

^SQUISH . RL , LPT : <SQUISH . FT/L/N J 



MOVE. FT 1 

.R F4j 

^MOVE.RL , LPT : <MOVE . F T/L/N J 



NEXT. FT 1 

.R F4j 

^NEXTTRL, LPT : <NEXT . FT/L/N^ 



GETBLK.FT 1 
.R F4,) 

^GETBLK . RL , LPT : <GETBLK . FT/L/Np 



PUTBLK.FT 1 

.R F4 J 

^PUTBLK . RL,LPT: <PUTBLK. FT/L/Nj 



COMP AR. FT 1 

.R F4J 

^COMPAR . RL , LPT : <COMPAR . FT/L/N^ 



STRNG.PA 

.R RALF ) 

*STRNG . RL , LPT : < STRNG . PA/L J 



CCGET.PA 

JR RALF ) 

*CCGET. RL, LPT: <CCGET . PA/L J 



Refer to the appropriate sections of • this manual for information on 
saving and/or loading these binary programs . 



1 See footnote on previous page. 
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APPENDIX C 



INTERNAL DOCUMENTATION 



The internal documentation for LIBMSH is provided for Software Sup- 
port personnel and advanced programmers who wish to better understand 
the operation of these programs. 

The description of each program includes an explanation of the 
program listing. The array dimensions are shown in parentheses after 
the array names. For programs assembled with PAL8 , explanations are 
keyed to statement labels. FORTRAN program explanations are keyed 
to statement numbers plus or minus the number of lines after or 
before which a routine begins. Comment lines are not counted. 

C.l TRANSFER PROGRAM 



TRANS. PA is an assembly language program which assembles with PALS. 
Its purpose is to convert an AIPOS file (2 word - double precision - 
data) into an OS/8 compatible file (3-word - floating point - data) . 



Label 

BEGIN: 



MESS: 



WTR: 



Explanation 

The USR is brought into core; the command decoder 
is called; the user specified output file is 
entered on his device. 

Three questions and answers follow: 

I UN IT holds a number 0-7 indicative of the 

LINCtape unit which holds the AIPOS 
file . 

RSB contains the starting block (HEADER 

BLK) of the AIPOS file to be trans- 
ferred. 

IFL contains (length+1) of AIPOS file. 

The Header block is read and checked to see if 
the AIPOS file is a MASS/Intensity MASH file 
(WORD2=405) . 

AIPOS data is read into 2000-2377, a block at a 
time . 

The data is converted to floating point and entered 
into the output buffer at 6000-6377. The transfer 
is complete when two 37777777* s in a row are en- 
countered in the AIPOS file. 
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Label 

DONE: 

READ: 

FIXUP: 

RDHEAD : 

TTYO : 
TTY I : 

WRITE: 



Explanation 



Write out the last block of floating point data, 
close the file, and go to BEGIN. 

Sets up to read a LINCtape block (maximum 1600) , 
does the read and sets IA to starting address -1 
of AIPOS buffer. 

This routine is entered only if the last block 
of an AIPOS file being transferred does not contain 
the two 37777777 1 s . 

Referred to earlier when the Header block of AIPOS 
file was being checked. 

This outputs an ASCII message. 

This accepts numeric input along with CTRL/C and 
RETURN key. 

The floating point data in the output buffer is 
written to the OS/8 file. 



C . 2 PRINT PROGRAM 



PRINT. FT outputs the results of the Transfer program. The MASS times 
10 [MASS*10] values and the corresponding INTENSITY values are listed 
on the line printer in two columns. 



Arrays used by program 



Explanation 



ARRAY (85) Contains a block of data read from the 

device specified. 

B(84) Contains an equal number of MASS(*10)/ 

Intensity pairs to be output to the 
line printer. 



Logical unit: 



5 



Assigned to the file in question at LOAD 
time . 



C . 3 ALLOCATE PROGRAM 

ALLOCAT . PA is an assembly language program which assembles with PAL8. 
Its purpose is to open a file of user-specified length, unit and name. 

The USR is brought into core; the command decoder called, the output 
file opened and then closed. 
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C . 4 LIBMSH PROGRAM 



This program is made up of fourteen separate modules, twelve writ- 
ten in FORTRAN and two written in relocatable assembly language 
code. 



Logical Units: 

5 - assigned to a converted floating point MASH file 

6 - assigned to the only required CATALOGUE 

7 - assigned to the optional CATALOGUE 



Arrays used by program 
SLOTS (85) 



HEADER (85) 



Explanation 

Contains one block of catalogue information 
which is divided into four - 21 floating- 
point-word entries with the 8 5th floating- 
po in t-word ignored . 

Contains the Header block information of 
a given catalogue. 

Floating 



Point Wd. 


Contents 


Description 


1 


INIT FLG 


1934 if initialized 


2 


integer 


number of next open 
entry slot in the file 


3-4 


name of 
catalogue 


12 characters maximum 


5-6 


Date, etc. 


12 characters maximum 


7-17 


User mes- 
sage 


66 characters maximum 


18-85 


unused 





ENTRY (21) 



Contains all information necessary for one 
entry into a given catalogue. 



Floating 
Point Word 

1-5 

6-21 



Contents 

NAME, FORMULA, etc. 

8 M/I pairs found by ENcoding. 



COMLST ( 3 ) 



Contains eight two-letter command codes to 
be used by LIBMSH. FT when interpreting a 
function call. 




The Fourteen Modules: 

Reference to specific lines of FORTRAN code are made relative to state 
ment numbers with comment lines not being counted. For example, 46+2 
means the second line of code after the statement number 46. 
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C.4.1 LIBMSH . FT is a FORTRAN program which is essentially a command 
decoder. 



Program State- 

ment Numbers Explanation 



20-3 



20-1 



10 



KOUNT - initialize to 0 so that NEXT. FT 

will work correctly the first time 
it is called. 

IDEV - set to 6 (at other places and in 

other routines sometimes set to 7). 
Used in random access I/O to refer 
to logical unit 6 (or 7) . 

A check is made to see if the catalogue on 
logical unit 6 has been initialized. Next, 
the command is requested, interpreted and 
then executed. 

An illegal command returns here. 



C.4.2 ENTER. FT is a FORTRAN program which enters a file into a 

catalogue on logical unit 6 as well as searches a catalogue 
for one or more files that compare with the given file. 



Arrays used by Program 
NAME ( 5 ) 



PKLST ( 16 ) 



Explanation 

these five floating point words are 
equivalent to the first five float- 
ing point words of ENTRY (21). 

these 16 floating point words are 
equivalent to words 6-21 of ENTRY (21). 



Statement Numbers 



Explanation 



11-2 Read the Header block of logical unit 6. 

Determine type of encode. Clear PKLST 
array . 

14 Manual encode. User enters a maximum of 8 

Mass/Intensity peaks. 

20 Automatic encode. After entering the MASS 

tolerance (DELTM) , the eight largest peaks 
from the MASH file are found. 

201 Initialize a set of constants. 

220 NEXT. FT is called to obtain the next Mass/ 

Intensity pair with a check made for end of 
file. The MASS is divided by 10 since the 
MASS in the file is a multiple of 10. 

IMASS - real mass is integerized 
FRACT - decimal part of real mass 
XFRACT-l-FRACT 




Statement Numbers 



Explanation 



220+6 Find all masses which satisfy the tolerance, 

DELTM. Enter Mass/Intensity pair into 
PKLST ( 16 ) if the intensity is greater than 
one which is found in the list, and elimin- 
ate smallest intensity pair. 

25 Change the eight intensities to a % rela- 

tive to the highest one and then report 
the auto encode. 

40 Do a Search if FLGLST-1 . 

4J2f+l Call COMPAR which is the subroutine which 

does the search. 

67 Entry is now placed in Catalogue upon user 

request. 

72 The entry may replace a given Catalogue 

entry. 

80 Entry is placed in catalogue; updated header 

block (word 2) of catalogue is written out 
to the file catalogue. 



C.4.3 INTERP.FT is a FORTRAN subroutine that compares a two-letter 

function command, which is passed to it, with the list of eight 
valid commands found in COMLST. The subroutine CCGET is called. 

INTERP returns one of the first eight digits to the calling 
program LIBMSH.FT, as a code number signaling which command was 
requested. An illegal command returns code number 9. 



C.4.4 XLIST.FT is a FORTRAN subroutine callable by the XLn command 
(FLGLST=0) or by the CLn command (FLGLST=1 ) . 



Statement Numbers 



Explanation 



3-3 If the catalogue to be listed is on logi- 

cal device 7, a check is made to see if 
it has been initialized. 

3+1 Check to see if any entries are in cata- 

logue . 

10 Request the set of contiguous entry numbers 

to be used in the listing. The two limit 
numbers are checked for validity and re- 
adjusted if necessary. If the high limit 
is 0 or is greater than the last entry in 
the catalogue its value defaults to the last 
entry number. If the low limit is 0 its 
value defaults to 1. If the low limit > 
high limit, the low limit takes on the 
value of the high limit. 
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Statement Number 



Explanation 

20-2 Check FLGLST for choice of type of list. 

20 XLn command- listing of Header block in- 

formation. 

30 CLn & XLn command- listing of 30 characters 

maximum information for each entry. 

33 CLn command-listing of Mass/Intensity 

pairs. 



C.4.5 DELETE. FT is a subroutine which deletes one (21 floating point) 
entry in a catalogue by replacing all 21 words with 0.0. 



Statement Number Explanation 

3-3 If the file to be deleted is on logical 

unit 7, a check is made to see if it has 
been initialized. 

3+1 Check to see if any entries are in cata- 

logue . 

9+1 Accept entry numbers to be deleted, check 

to see if NUM is zero which signals return 
to CMD . Check to see if NUM is too big. 

31 If NUM = last entry number, decrement 

word (2) of the header block. A further 
check is made to see if the next entry had 
been previously deleted. If so, decrement 
word (2) etc. This sequence moves the 
pointer to the first available entry slot. 

30 Replace the entry with 0 f s. 

15+1 Put entry back into catalogue and restore 

updated header block. 



C.4,6 SQUISH. FT is a subroutine which eliminates all empty entries 
previously caused by deletions. 



Statement Number Explanation 

3+2 Set up some variables 

IEND = last entry in catalogue. 

NBLK = number of blocks containing all 
entries from first to last. 

IA = current block of catalogue to be 
read 

IB = current block of catalogue to be 
written to during the squish. 

JEND - counts four entries per block. 

10-8 Squeeze the four entries of the current 

block in core, eliminating zeroed entries. 
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Statement Number 



Explanation 



10+1 Write out a block of squeezed entries when 

the block has four non-zeroed entries. 

10+4 LF signals the need (=1) to write out a 

partially filled block when the SQUISH is 
done . 

25 Update header information and write it out 

to the catalogue. 



C.4.7 MOVE. FT is a subroutine used to move a contiguous set of entries 
(1 , 2 , 3 , . . . , All) from the catalogue on logical unit 6 to the 
catalogue on logical unit 7. 



Arrays used 
by Programs 

SL (85) 

SLOTS (85) 

HEAD (85) 

HEADER (85) 

Statement Number 
100-1 

10-2 



26 + 1 



Explanation 



contains four entries from catalogue on 
logical unit 7 

contains four entries from catalogue on 
logical unit 6 . 

contains the HEADER information for the 
catalogue on logical unit 6. 

contains the header information for the 
catalogue on logical unit 7. 



Explanation 



Request the set of contiguous entry numbers 
to be used in the move. The two limit 
numbers LIMLO & LIMHI are checked for valid- 
ity. 



Set up some variables. 



KSTOP = 
FIRST6 = 
LIMLO = 



FIRST = 



FIRST7 = 
KBEGIN = 

KSTART = 

KEND 



number of entries to move, 
current block to read, 
reset to a number from 1 to 4. 
Keeps track of current entry of 
current block in core from logical 
unit 6. 

set to a number from 1 to 4, 

Keeps track of current entry of 
current block in core from logi- 
cal unit 7. 

current block to write. 

points to first word of current 

entry in output buffer 

points to first word of current 

entry in input buffer 

points to last word of current 

entry in input buffer. 



Transfer one entry to output buffer. Update 
Header Block of output file. Check need to 
write out buffer if four entries are present. 
Check if job is done (KSTOP=0) . 
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Statement Number 



Explanation 



55 Set pointer to next input entry. 

59 Job is done. Write out last block. Write 

out updated header block. 



C.4.8 COMP AR. FT is a subroutine called by ENTER. FT and is used to 
search all files on logical unit 6 for one or more matches 
with a given entry in ENTRY (21). 



Statement Number Explanation 

41 User specified tolerances. 

DELTI - Itensity tolerance 
NUMPKS “ number of peaks which must match 
in order to report a valid com- 
pare . 

43 Output of hard copy heading to be used 

when reporting any matches. 

43+2 FLAG = set to 1 if one or more matches 

were found 

IEND = number of last entry in catalogue 

43+4 Reads one catalogue entry at a time 

into SLOTS (85) . 

43+9 Takes one peak at a time from ENTRY (21) 

and compares with each of the eight peaks 
of an entry in SLOTS(85). 

57-1 Reports a match when found. 



C.4.9 INIT.FT is a subroutine which checks the catalogue on logical 
unit 6 to make sure it has been initialized (FLG=0) , and then 
forces an automatic initialization if it has not. This routine 
is also called to initialize a catalogue (FLG=1) upon user 
request . 



Statement Number Explanation 

3-3 See if an automatic check is to be made on 

logical unit 6 (FLG=0) . Otherwise deter- 
mine which logical unit (IDEV=6 or 7) has 
been requested for initialization. 

3+1 See if catalogue is presently initialized 

HEADER ( 1 ) = 1 9 3 4 , 

7-1 Indicates that the catalogue is being in- 

itialized for the first time. 

8 Set word 1 of header 'block of catalogue to 

1934. Set word 2 of header block to a 1 . 
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Statement Number 



Explanation 



C.4.10 



C.4.11 



C.4.12 



C.4.13 



10 Accept user specified information. 

5-1 Determine if Initialization is upon re- 

quest (FLG=1) . 

5 Place all Header information in array to 

be written out. 

200+1 Write out Header block. 

20 If Initialization is upon request, give user 

a chance to back out before doing the in- 
itialization on his catalogue. 



NEXT. FT is called by ENTER. This routine fetches the next 
floating-point number (either a MASS or INTENSITY) value 
from a given MASS file which is on logical unit 5. 



Arrays used 

by Program Explanation 

ARRAY (85) Contains one block of floating-point numbers 

read from a MASH file. 



Statement Number Explanation 

10-3 KOUNT - is a variable which indicates 

which of the 85 floating-point 
numbers in ARRAY (85) is to be 
fetched. It is initially set 
to 0 by LIBMSH , and thereafter 
set to zero whenever a new block 
of data is to be read. 



GETBLK.FT is a routine which effectively gets a specified 
entry (NENT) in a catalogue (NDEV) , by actually reading into 
SLOTS (85) the entire block containing the entry. This rou- 
tine returns to the caller the starting location (LOC) within 
SLOTS where the requested entry begins. 

PUTBLK.FT is a routine which works like GETBLK and puts an 
entry into a catalogue. 

t h 

CCGET.PA is an assembly language program which gets the N 
character (6-Bit) in a string, and stores it in F as a norm- 
alized number between 0 and 63. 
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C.4.14 STRNG.PA is an assembly language program which enables entry 
of an ASCII string of characters in groups of six. If 
fewer than the maximum number of characters is entered, 
blanks are automatically filled in on the right. 



Labels 

STRNG 

SETINT 



STRING 

CRTN 

LPTTYI 

BLANKS 

LFRT 



Explanation 



The return address is saved; base page and 
index registers are reassigned; the arguments 
of the subroutine call are processed. 

Since the routine works off the FORTRAN inter- 
rupt chain, it is necessary to set up the 4- 
locations for the interrupt. It is necessary 
to save, and later restore, the first of the 
4-locations (#INT) . The field and address 
of the string of characters is set up for 
LFRT. 

A set of locations are cleared. 

FLGDN=1 when the last character has been 
entered and it is time to return 
to the calling program. 

FLG=Even number if the right 6-bit character 

of a word in the string is 
requested. 

FLG=Odd number if the left 6-bit character 
is requested. 

FLGCHR = negative number signals job is done 
= 0 signals Teletype input 
= 1 signals time to issue carriage 
return 

= 2 signals time to issue line feed 

Checks interrupt flags for a previous echoed 
character or a current input character. If 
an echoed character caused interrupt, a check 
is made (FLGCHR) whether to output line feed, 
carriage return, or service Teletype. 

This routine is called only when the user 
exceeded the maximum number of input string 
characters before issuing a carriage return. 

This routine services the keyboard. 

Come here if user issued carriage return be- 
fore the maximum number of characters had 
been entered. Blanks are filled in the string 
to the right. 

Depending on the contents of FLG (ODD or EVEN) 
the left or right 6-bit character of a word 
in the string is stored with the keyboard 
character . 
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RTFS FukIRaN 



1.0s 



MAY 11 19/2 



PAGE UNt 





C 


D fc C » 1 2 ** A ML B 4s*i a L.L — - - - 






C 


COPYRIGHT 19/2 






C 


DIGIT AL EQUIPMENT CORPORATION 






c 


MAYNARD, kA 01/54 






L 


»_.„,LlH*Sh .FT *«■--* 






C 


This IS THb N A J N program FOR the 






C 


MASH LlbKAkY PROGRAM. 






L 


CALLING SEP! R LOAD 






C 


L IBM-SH/O 






C 


SPfcCTR/5/C SPECT TO INTERACT 


WITH CATELOG 




t 


CATALOGl/b/C GIVEN CATALOGUE NAME 




C 


CATALOG*// OPTIONAL-USt WHEN 


DOING A HOVE 




c 


CQMaNC DECODER 




0002 




COMMON SLCTS18S) ,HMDeNC85) ,£Nm(2t) iCOHLST (3) ,KOuM 


4k tf 3 




COHHCN/A/IUEV 




wk 




data COHIST/ixlCLDE', 'SGINEN', 'SEND '/ 




4 16 4 b 




DEE J N E FILE 6 1 1 . 85 , U , L V 1 ) 




& k 4 t 




NOUN 1 80 




4 k 0 7 




IDEvefc 




ik 




CALI. I N I T ( 0 ) 




00 11 


2* ; 


WRITE (4, 100) 




»fc 12 


10k 


FORMAT (//IX, * C H t? ' / ) 




<J k‘ 1 c 




REACH. 1101 COMO 




0 k 1 4 


1 ik 


FORMAT C A3) 




0e*15 




CALL INTERP U.CDrtD. IC0DE1 




0 k i t> 




b 0 T0(9#9|9#9*9#6#7 * 6 * Ik) # ICODE 




0 t 1 7 


1 


CALL XllSTU?) 




002k 




bO TC 2k 






l •• 


---This IS THE 'CLlST ' COMO 




0021 


2 


CALL YLlSTtl) 




0022 




60 TC 2k 




0020 


3 


CALL DtLfeTfc 




002 4 




GO TO 2k 




002b 


4 


CALL SQUISH 




00 20 




GO TO 2k 




0027 


0 


CALL IMTtl) 




0000 




GO TC 27' 




0k 01 


e 


Cali f;mer(«) 




0042 




GO TO 2k 






O* 


---This is THt 'SEARCH COMO' 




0k33 


7 


CALL ENTER 11) 




0004 




GO TC *0 




0005 


4 


DEFINE' FILE 7 U, 85, U.LV2) 




4k 40 




1 D E V 1 7 




w k 0 7 




LALL IMTtfc) 




00 4 0 




CALL HOVE 




4 k 41 




feO TO 20 




00 42 


9 


CALL CCGET (COMO , 3 # IDE V ) 




00 4 3 




IDE Vs I DEV •4.8.... 




0044 




IF (ICEV.LT.e.0R.I0tV.GT.7)G0 TO 10 




4k4h 




GO TC(l,2,3.A.b),lC0DE 






o* 


---This is tfe error rtn----- 




vJ k 4 1 


10 


WRITE (4,22) 




0047 


22 


FORMAT (» C HD ERR'/) 




4 k 3 k. 




GO TO 20 . - — - --- - 






Hf 1 K S 


EUPTNAN 1„(^6 


MAY 11 1972 


PAGE T*0 


*lf 3) 


fcNC 


— 






















HALF V 51 MAY 11, Vi PAGE 1 

/ DF.C-12»AMLBA-A»U0 

i COPYRIGHT 1S72 

/ DIGITAL EQUIPMENT CORPORATION 

/ RAY.MA.RD* HA .2.17 54 

/ - - - 

/ 

/ THIS IS A QSB HOOT INE THAT IS CALLABLE 

i F RQR FORTRAN, IT ENABLES ONE TO ENTER 

i AN ASCII STRING OF CHARACTERS IN GROUPS 

/ CF SI* (6). 

/ - - - - 

/ CALLING SfcQ. CALL STRNG (M A X , ARR A Y ) WHERE 

/ MAXs6*0lM|NSI0N OF ARRAY 

/ ARRAYsADDRESS of where to pack the chars 

/ 



COHHZ GLOB 



4 ft ft ft ft 


1 vc 3 0 




04 


STRNG 


ftftftft l 


Vi A 4 1‘ 








ft ft ft V 4 






tMT 


♦STRNG+ 














ftft ftft 4 


k/ftft 








ft ft ft ft 0 


fcftft* 


BSTRNG, 


0 J ft ML 




ftft ftftb 












ft ftft ft 








ft ft ft 1 ft 


Hi ^ ft ft 


X f 


ft ?ft 1 to 




fflfc 


ft ft ft ft 









ft it id 1 It 


k ft V ft 








ftftft 10 


ft ftft ft 


Y, 


ft 




ftftft i* 


V V ) ft K 


AFLO, 


ft 




ft ft ft 1 £> 


■ ft ft ft 


ARPTP, 


ft 




ftftft 1 1? 


ft Vi V ft 


XSTRNG, 


ft f ft l ft 




ftft ft 1? 


ftftftft 




. . . . ,, 





ft fe* ft k If 


ft ft ft it) 














CRG BSTRNG + 3S? 


ftftftdfc 


ft)ft4ft 


GObAK , 


FNOP J JA 


• 


A X id 3 fc 


i K»30 








A X ft 3 7 


ft ft 3 0 














ENTRY STRNG 








BASF ft 




0 0 ^ 1C 


ft, ftft o 


STRNG, 


STAMP 




0^04 X 


ft 2 1 ft 




FLDA 3ft 




ft ft ft 4 fc 


fc4ftft 




FSTA 


GOB AK 




k 0 5 1> 








ft ft ft 4 « 


ftfcfcft.. 




f LOA 


0 


0 (tr 0 4 1> 


Hftft 




SfcTX 


XSTRNG 


0 fei 0 0 1» 


ftftio 








000 47 


in* 




SETB 


BSTRNG 


0 k 0 1» 0 
















BASE BSTRNG 


ft£.ftt>l 


010 1 




LQK 


i*i 




(pug! 








ftftft&O 






FSTA 


BSTRNG 
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0 k b 4 
ti.fckibb 
id V W 5 1 
idLOb? 
d id ^ fc k 
rfk'tffr 1 
4 id tfbk 

know .&$ 

Y) C id & 5 
w k wdO 
wtf mo? 

0VM/Y 
... w le rf 1 1 
w lei w 7 k 
0*070 
0*07 4 
0*0/0 
k) K> k> 7 o 
0**7 7 
id * 1 V fc 
fc 1 1? 1 

** Itk 
* L i L 0 
0*1 L 4 
^ * l fe; 5 
0*1*5 

ai^/ 

k) * l 1 * 
0*111 
id 16 11k 
0* 1 14 
0*1 14 
YUS lib 
0k 1 lb 
^ k 1 1 7 
0* 12* 
Wk- ikl 
tfklkk 
0*1£O 

Wklk4 
0*lkb 
WE IkC 
#U7 
0 * 10 * 
kMdidi 
0 * iok 
0* 100 
00 10* 
tfklOb 
0k 10t> 
0*107 
id * 14k* 
0*141 
idk 1 4 k 



kb Ik' 


HDn 


as TP NG * 1 


/ADR OF MAX 


52k 1 


F 5 T A 


. X .... 




* / lk 


F l D A % 


B5TRNG p 1 4 


/ADR OF ARRAY 


52£ k 


F ST A 


Y 




Y id ft b 


S T A R T F 






L bkl 


F L D A % 


X 


/GET MAXNUM 


*0 2* 


ATX k 






4 0 00 


TKAR.4 .. 


S£tIM. 




fc id 7 W 








0 k) * o 


SI AftlF 






1 0 0 0 


J A 


GOB A K 




0 id O b 








Y * 0 fc 


SETINT, id 






bkk 1 


CDF 0 


__ 




1/44 


TAD* 


INTADR^l 


/SAVE C(ttlNT) 


0 0 b 2 


DC A 


INT0 




1 ob l 


TAD 


ASKp 


/STORE 'SKPI 


0744 


DCA% 


INTAOR^I 


/AT AINT 


2044 


ISZ 


INTADNM 




1040 


TAD 


JOB-M 


/ADR OF 'STRING' 


0/4*» 


OCAX 


INTADR'YI 




k044 


ISZ 


INTACRtl 




104b 


TAD 


JOB 


/FLO OF 'STRING* 


7 i k o 


CLL mTL 






7kk4 


PAL 






10b* 


TAD 


A FI E L 




0/44 


PC AS? 


I NT ADR -M 




Ikio 


TAD 


XSTRNG 


/GET MAXNUM 


ok 1 1 


CDF lk 






0/bo 


Q C A % 


M A X N ♦ 1 


/MAXCNT 


1750 


TAD* 


M A X N + 1 




7 k 4 1 


CIA 






0/ b^ 


DC A* 


M A X C + 1 




IkH 


TAD 


AF.LD 


/.FLO OF ARRAY 


k07 1 


AND 


P7 




7 Iko 


CLL KTL 






/kk 4 


pal 






104/ 


T A C 


ACQf 




O/CD 


DC A% 


CDMR + 1 




14 1b 


TAG 


ARP TR 




0/54 


DC A % 


4KPTM 




0/54 


DC A% 


FLGO+l 




O/bk 


DCAX 






07 7 0 


D C A % 


£LGCHtL 




1/54 


TADS? 


FLGD+1 




755k 


SNA CLA 






bOO* 


J F P 


• *2 




tkkl 


CDF * 






107 k 


tad 


M2 




1044 


TAD 


INflDR+l 


7.8 TN PTR TO RINT 


0 0 4 4 


DC A 


IMADH + 1 




105k 


Tad 


IM0 


/RESTORE CUINT) 


0744 


DCAX 


intacr+i 




5200 


CDF Cl* 






b67w 


JMP% 


StTXNT 
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hXTtK H ^ IN T 










00144 


0000 


1 NT ADR » 


ADDR &1NT 










00 1 4 4 


0 0 k k 














0 0 1 4 b 


kkkk 


JOB, 


AIH'.K STRING 










40 1 46 


004 0 














4614/ 


6441 


ACDF, 


6201 










00156 


6404 


ARIEL. 


62 03 











yv. i d 1 


/ 4 1 k> 


ASNP, 


74 10 










40162 


6 40 6 


INI k4, 


ft __... 










4 6 i £4 


6 4 k *4 


AKPT, 


ADO APTR 










4 k 1 & 4 


040/ 














4 i& l b b 


0000 


MAXN, 


AHC^ HAXNUH 










06 lbo 


03k2 




. _ _ . 










tfi&l o? 


0000 


MAXC, 


addr haxctp 










00160 


6 4 6 4 














06161 


k k k 0 


F L # 


A DDR PLG 










00 i 0 k 


0004 














y k 1 6 0 


0 000 


PL GO, 


AD DP ELGON 










4kl64 


630 b 















40165 


k 0 0 0 


COP AP, 


ADDR CDF An Y 










00166 


k422 














40167 


0 kkk, 


PLGCH, 


ADUR FtGCHR 










0017k 


k4k 1 






. _.._ 








0 k l 7 1 


kkk7 


P7, 


7 










00174 


7776 


P 2 , 


-2 



















OBG 200 











4620k 


It 0 (5 «? 


STRING# 0 






4k*t 1 


t> (r! 4 1 


T$F 




/CHK 'OUTPUTI PLG 


0k2k2 




OP 


LPTTYI 


/NOT SET 


4 6 2 k 5 


d Ai: 


TO 




/SET, CLP IT 


0020* 


i j»i 


TAD 


PLGCHR 


/FLG PAS due to 


4020 6 


7 45* 


SKA 




/PREVIOUS ECHO CHAR? 


40206 




5 NP 


LPTTYI 




00 20 7 


7 a 1» 


SPA 






0021k 


t>351 


Jf'P 


DONE 




0021 1 


1 J1 A 


TAD 


HI 




00212 


7 7 5*. 


SPA SNA 


CLA 




40215 




JPP 


CPTN 


/ISSUE A CR 


40214 


1011/ 


1 AD 


P212 


/ISSUE LP 


40216 


b k! 4 b 


1LS 






00216 


7 iiAie 


LL A CM A 






40217 


3301 


GCA 


FLGCHR 




4 0220 


t>053 


JPP 


PE TURN 








/ 4 1 0 L CDN0 HfcRP 


ONLY WHEN USER 


ISSUED NO CP 


00 221 


l3|i! 


C R T N , TAD 


P215 




00222 


tlt'AC 


1 LS 






4 0224 


JODI 


OCA 


FLGCHR 




00224 


5353 


JFP 


RETURN 




4022b 


fc 1^ 3 1 


OTTYI, NSF 






40226 


5353 


JPF 


RETURN 




40227 


fc*3& 


KPfc 






M 0.2 34 


03tft> 


. OCA . 


TPP 






K A|»F 


V 51 


I^AY 1 1 , 


7? RAGE 


1-3 




to to 2 5 X 


1 due 




f AD 




IMP 




to to 2 5 2 


1313 




TAD 




M3 7 7 


/TEST FOR HUBOUT 


to D 4 3 0 


?4*>0) 




$K A 








toL 254 


6*56 




JMP 




RUBOUT 




toto 235 


1 0 1 4 




TAD 




CP 




00*36 


7 ©5 to 




SKA 


LtA 




/TEST FR CR 


to ip 2 3 / 


5*46 




j K F 




BLANKS 




00*40 


1303 




t a n 




IMP 




toto24 1 


C^40 




TL8 






/ECHO CHAR 


<d to 2 4 2 


to 1 7 




AND 




P77 




*10 2 45 


35to© 




CCA 




IMP 




00*4" 


432 l 




JPS 




LFRT 




<4 0 2 a 5 


6353 




JKH 




Pfc TURN 




id it 2.4ft 


ian 


blanks, 


T AC 





E4jd _ 


_ , 


wi*y 


5 ^ 0 fe 




DC A 




TMP 




to to 2 5 to 


131* 




1 AD 




P215 





dies 2 E» 1 


0 to4 © 




TIS 








00252 


7 2 0 V: 




CLA 








•502BO 


2 5to X 




ISZ 




FLGCHK 




to(f 25^ 


*0^1 




Jrs 




lfrt ... 




id le «; £> fe 


525* 




JKP 




.-1 




toto£5fc 


I 5 to 2 


HUBOUT , 


1 AD 




MAXNUP 




00*5/ 


1 3i do 




TAD 




M.AXCTR 




Wt^OK. 


7/50 




SPA 


SNA 


CLA 


/OK TO HUBOUT? 


0020.1 


5505 




OKP 




RfelURN 


— /NO, AT TOP OP LIST 


id to 2 t 2 


1310 




TAD 




P334 


/YES, ECHO BACKSLASH 


id if 2 e t> 


t^»4© 




tls 








idSS*6« 


7*4 to 




CLA 


CM A 






tdtM&S 


15to5 




TAD 




M A X C T N 


/BACKUP CTH 


ioiu2tb 


551 /;5 




DC A 




MAXCTR 




«Jfc*C/ 


1004 




TAD 




FL5 .. 




00*70 


7 1 1 k> 




cu 


PAR 






idl oil i 


7 ©3*’ 




SZL 


CLA 




/LEFT 6 BIT CAR? 


mzvd, 


027© 




JMp 




. *4 


/YES 


id*..*/.* 


7 0 4 0 




O A 






/NO, BACKUP PTR 


idle 27" 


100/ 




1 A l 




aPTP 




00*75 


5007 




DC A 




APTR 




00276 


25M 




ISZ 




^ LG 




Will 


7 0 fe* x 




Nt’P 








kJ03Ht 


5050 




JKP 




RL TURN 




00 30-1 


0 Vi 0 0 


f-LbChe, 


to 








mt'a'i 


0 00 0 


MA/NUP, 


to 








KUO Old <5 


0 0 0 0 


MAXCT R, 


to 








0030 4 


to 0 0 to 


Mb, 


to 








0030 5 


0 00 0 


F L b D N , 


to 








0 U 3 0- 6 


000 0 


1*P, 


to . . 








*30.30 7 


to to id w 


AHTtt, 


O' 








0031k 


to212 


P212, 


212 








000 II 


to to 4 to 


P40, 


4 0 








0031* 


02 15 


P.219, 


2 1 8. 








Kit 310 


0102 


CR, 


37 7- 


215 






46 it' 4 1 « 


7777 


PI, 


-1 








wfc 3ia 


7401 


M377 , 


-377 








003 i b 


.04)3.4 


P334, 


aa.4- 
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01*317 


0w77 


P77 , 


77 






00388 


77»w 


P7/00, 


7702 









00381 


fc Vfl 0 iJ 


LFRT, 


k 








k tf k ft 


CUP Ap Y * 


£ 






00 383 


230 4 




IS? 


FLU 




4t b 2 4 


lem 




. M£P 









1304 




T AO 


FLU 




08386 


711* 




CLL PAP 






327 


7 02* 




SM CIA 




7LF CHAR? 


38330 


5337 




J HP 


HI 


- / 


»ewi 


1306 


LFf 


TAD 


T*P 




0t338 


710-6 




CLL RTL 








/**0 




kH 








7 *y t 




PTL 






00336 


3/07 




D C A % 


APT* 




00336 


t>£4* 




JNp 


HI N 




tt 4 ^ 7 


1/^7 


KT » 


TAO% 


APT ft 




0*3<b 


fr 62* 




AND 


?77M 




fe *3 4 l 


l£tf 0 




T A h 


THP 




«3fc04fc 


£7ft/ 




OCAX 


APTN 




UM4$ 


2oft7 




ISZ 


APTft 




tf k, 4 a 4 


fc*H 


kTN, 


CDF 10 






0fcO4t> 


k < 30 4 




ISZ 


MAXCTN 






$/kl 




JNP% ... 


LFHT ... 




**6*7 


2Mtl 




lb 2 


FLGCHH 




Wfc$&fc 


54$£ 




JKP 


Hi TURN 




klL45i 


26*0 


DONE, 


Ibl 


FLGDN 






7 2** 




CCA 






£54 


ts2*6 


KfcTuPN, 


CiF LOF 






kHr£5* 


5000 




JtPX 


STRING 
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NO t hNl-kS) 

34 SH NSOLS, NO AbS REFS 



ft 


C 00000 


SIM 


X 00000 


tfMA IN 


S 00000 


ACOF 


00147 


AFItL 


00150 


AFLO 


00BH 


APTS 


00307 


ARPT 


00153 


AkPI k 


000 15 


AS KP 


00151 


Blanks 


00 246 


68TRNG 


00005 


LOb mk 


00 165 


Ct'FAH Y 


00322 


CK 


00313 


CRTn 


00221 


UOlvfc 


00.351 


Ft 


00161 


FLG 


00304 


FLGCH 


00167 


FLktnh 


0 0301 


F LGD 


00163 


FLGON 


00305 


GLOB 


2 00355 




00035 


I K T A DP 


00143 


INT0 


00152 


JOB 


00145 


If 


00331 


UFK1 


00321 


LPTTYI 


00225 


MAXC 


00137 


r axI I h 


00303 


NAXN 


00155 


MAXNUM 


00302 


Ml 


00314 




00172 


M77 


0«3|5 


P212 


00310 


P215 


00312 


P33« 


00316 




00311 


P7 


00171 


P77 


00317 


P / 7 fc $ 


00320 


RETURN 


00353 


RT 


00337 


RTN 


00344 


HUfcCUT 


00256 


SET1KT 


00070 


STRING 


00200 


STRNG 


00040 


1 MP 


003 0 6 


X 


00010 


XSTRNG 


00016 


V 


00013 




KAir v 51 MAY I 1 , 72 PAGE 1 



/ DEC-ia^AMtBA^A-UO 

/ COPYRIGHT |9?2 

/ DIGITAL EQUIPMENT CORPORATION 

/ MAYNARD# MA 01754 

/ • * - • • CC G E..T *£ A* * - - * 

/ CHARACTER HANDLING ROUTINES FOR FORTRAN 

/ 

/ CALLING sequences 

/ CALL CCGfcT CSTR#N # F) 

/ GETS THE NTH CHARACTER C6-8IT} IN STR § AND STONES 

/ IT I h i..... AS A NORMALIZED HUMBER BETWEEN J AND 63. 

/ 

/ 

/ COLLATING sequence is stripped ASCII. 

/ 









SECT 


CH 








ENTRY 


CCfifeT 


0000 0 


0:010 




TEXT 


+ CH + 


0 0 00 1 


1100 


RE1 # 


SET* 


XK 


000 0 k 


fei 0 3 








00 0 0 0 


1 1 1 0 




SETB 


BA SI 


0 0 0 0 4 


0 0 0 5 








0000 P 


0! 0 4 0 


BASE, 


FNDP? JA 


6 



0 0 0 0 0 l Vj 3 0 
*3000/ 0 01 0 o 

0L010 00 N * F 0 

000110000 
00010 000^ 

00 0 13 0 0 0 0 ft F v? ... ... 

00 014 k 0 0 -Li 

000 1 5 0^00 

000ie 0000 ksetx, en $7717777 /becomes sen to strcn/^i 

0001/ 107/ 

00 000 / / / / 

000k 1 0000 NSG n 1 5 # e-M0HA /STRIP THE SIGN FROM i. 5 -.8 1 T ADDRESS 

w irU 0 k 0 0 1 0 

0 0 0 c O 0 000 

000k 4 00K0 KSl»Ni? f 0 n 1 0 /IP BIT ADQR 

0 0 0 k b 0 0 0 1 
0 0 0 k b 0000 

000 k 7 0000 K SGNE f 0 ; 01 . 1. 610 /LIKEWISE FOR CHAR 

00000 0000 

00031 0100 




MU 



V 
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QRb 


8ASE*3B /RETURN, TRACE6AC* INFO 


*45 


4 444.. 




FNXiP 


J J A RET 


fafa/'OO 


1 43k 








4 44 3? 


40.4 1 








4U4AIC- 


4 4 4 k 




FKCP 






143k 


Gob aCk , 


JA 


. /RETURN TO CALLER'S BASE 


44 4*2 


444 1 


j 










( 

/ 


THERE ARE TWO SETS OF INUEX REGISTERS, WHICH MUST 






/ 


AT REMAIN* THAT IS, REMAIN MUST BE IN BOTH SETS. 






/ 


IN AUDITION, XTMP1 AND XTMP2 MUST BE THE HIGH 






/ 


AND 


LOW FRACTION WQROS, RESPECTIVELY, OF ONE 






/ 


btst 


PAGE LOCATION. 


444*3 


4444 


t 

X4 f 


4 


/UNUSED 


04 4 4* 


4441 


Xlf 


1 


/FOR GETTING 1ST PARAM 


4 ft* 4 4 5 


4 442 


X2f 


2 


/FOR GETTING 2ND 


04040 


4443 


X3r 


3 


/FOR GETTING 3RD 


444*7 


4 0 1 4 


KM, 


M 


/SHIFT COUNTER 


4 k 0 5 k 


7/e7 


K M 1 1 , 


•11 


/me, TOO 


0446 1 


4411 


Ml, 


1 1 


/AlSC A SHIFTER 






XX, 




/BEGIN OF SECOND SET 






/ 


k&PAlN MUST BE In BOTH SETS OF INDEX REGISTERS 


44052 


fc 4 4 fa 


WfePAlK, 


0 


/NON-ZERO IF N ODD 


04453 


4440 


K6f 


0 




44454 


7/72 


KP6, 


-6 




44455 


776-3 


KM1 4 , 


•14 




4k 450 


44^2 


K22, 


22 




4k 45/ 


4444 




4 


/OBTAIN ALIGNMENT 


4 k 4 5 k 


4000 


XTPRl , 


fa 


/MUST BE FIRST WORD OF FRACTION 


44461 


4 444 


XTPP;?, 


fa 


/MUST BE SECOND 
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w b to 1 2 

00050 
0000# 
00055 
000 . 0 1 ? 
0 0 irt t, / 

0 0 to 7 k 
0 k id 7 1 
0007* 

00to7»a 
0007 A 

0007 b 
0007b 
00077 
00|0k 
00 101 
0010 * 
00100 
00 1*4 
0010 b 
0 k Ibb 
0 0 1 0 / 

00 110 
00111 

00 1 1 * 
00110 
00114 

00 11 b 

00 1 lb 
0011? 
00 100 
0 0 1 * 1 
0 to 1 * * 
0 0 1 c 0 
00 1*4 

0012b 
00 1 *t? 
0012? 
00 l Ok 
00101 
0 0 1 0 * 
00130 
0010 4 

0010b 
00100 
0010? 
00 140 
0 014 1 
0kl4k 

m 140 



/ COMMON CODE F Oft CHAR ROUTINES 





7 







_ . - — 






BASE 


0 




1 0 0 IT* 


PROLOG, 


JA 


© 


/SOAR ENTRY 


0 0 t * 










fr-KifcO 




ST ART D 






l 2 1 * 




F LG A 


00 




0 400' 




F 51 A 


Li Q B A C K 


.. 


k 0 4 1 










0 * 0 0 




FlOA 


0 




1 100 




SET X 


X0 




00 4 3 














INDEX 


X0 




11 1 K 




SET B 


...BASE 


















BASE 


.BASE 


..... 


0*00 




F $ T A 


BASE 


/CALL POINTER 


0bk0 




FLCA% 


BASE.X2 


/ADDR OF SUBSCRIPT 


0 201 




fs r a 


N 




0 000 




FLO AX 


a A St , X3 


./SCALAR RESULT 


0*0* 




F S T A 


F 








startf 






000 1 




F L D A 7> 


iM 


/GET N VALUE 


0 0 1 0 




aLn 


xo 


/STRIP ANY FRACTION 


0 V) 1 4 




ALN 


K 1 4 


/BINARY POINT FOLLOWS BIT 12 


0 0 0 0 




STAR1D 






00*? 




ATX 


REMAIN 


/SAVE 0DD-EV6N BIT 


0014 




A L N 


K 1 4 


/SHIFT RIGHT 12 


10 1 0 




J G t 


.♦3 


/N MUST BE POSITIVE 


0114 










1*00 




F ADD 


K SGN i 2 


/so clear SIGN 


0 40 0 




FSTAfc 


T1 


/SAVE TO TEST 


0 1 4 b 










0 00? 




XT A 


K fe M A I N 


/CHECK ODD EVEN 


1000 




J t G 


T < 


/JUMP IF EVEN 


kl ko 










0 40 0 




F L D A A 


ONE 


/increment aodresss 


r 14? 










14k* 


12» 


F ADD# 


Tl 


/CONTINUE FOR BOTH 


0140 










1010 




F ADC* 


BASE a XI 


/ADD ADDRESS OF STRING 


0 0 1 h 




ALN 


KM11 


/shift left s 


0 010 




AIN 


Ni 1 


/and right again 


1 0 1 0 




JGE 


©♦0. 


/IF NECESSARY 


0100 










1*04 




F ADD 


KSGN15 


/REMOVE SIGN BITS 


1*00 




F ADO 


*$ET* 


/CREATE SETX INSTR 


0 400 




F 5 T A 


* *2 


/AND EXECUTE IT 


0100 










1 100 




SETX 


© - - 





0100 










0 0 0 0 




XT A 


... 


/GET T rtO CHARS 


1 i * 0 




SFTX 


XX 


/SETUP FOR SECOND SET OF REGISTERS 


0052 














INDEX 


X X 




1000 




J A 


F.K QLCG ... 


/RETURN TO CALLER 




«*LF V 51 MAY 11, 77 F AGE 3-1 
W)k* l <• 4 

dSGlAlJ vvitti Tl, U S £ 

icH' 1 1 « t> i ctiiflv) 

\ik-lAf K 00Ki ONfe, fu - - 

Ibv if y-tr 1 
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/ 

/ 

O0151 1 120 CCGET > 
tik' l 50 Wb2 
Olf l t)C tHkir) 

itfOlt-4 0156 
00 155 it 16 1 * 

16015b fcOli GC1 1 ..... 
00 15/ 00 1 A 

oolek 1 o 1 o 
ooiei kit 3 

00 It* 1205 
0 b 1 t> 3 0O2t 

00:154 0 005 

Ok lot 0036 
OOlbb te02 
Ok lt7 1030 
ok, 1/0 00*il 



NOW THE ACTUAL ROUTINES 

JSA Prolog /get everything set up 

JON GCl*PEHAIN /jhp IF QDD-NUMBEPEO CHAW wanted 

alN KR6 /IF EVEN, SHIFT IT INTO PLACE 

AIN .... SHX4- /IHROfcL AWAY HIGH XUS __ 

ALN X22 /SHIFT EVERYTHING BACK 

jGE Ilf NEG, 

FADD KSGN.6. /DISCARD SIGN BITS 

ATO 0THP1 /HOLD IT A HQ 

STARTF _ /TILL WE GEL. THE MOQ£ _ 

OTA X 1 HP 1 

F ST AX f /PUT. IT Away 

JA G08ACK /ALL DONE 





HALF V 51 MAY 11, 7 2 PAGE 4-1 



in 0 t h K 0 H $ 

01 bl«cUL4>, NO AfiS KEFS 



% 


C to to $ to to 


LH 


s win 


MU 


to to to b to 


K5»bNlk 


to nto?4 


f\ l 4 


to to to 4 7 


LNfc 


totol4? 


U 


toto i 4£j 


XX 


to to to 5 2 


X ^ 


to to & 4 fo 



& M 6 I N . 


a 00001 ?.. 


p 


0w0 1 3 


h h 1 4 


00055 


K 5GM5 


00021 


K22 


.0 0056 


PROLOG 


00062 


t£ 


0 0 1 23 


Xp 


00043 



BASE 


00005 


GCt 


00 156 


KM 6 


00054 


KSGN 6 


00027 


K 6 


00053 


kEM AIN 


00052 


KTKP 1 


00060 


XI 


00044 



CCGET 


00151 


gdback 


00041 


IS SET X 


00016 


Ml 


00051 


N 


00010 


KET 


00001 


XTMP 2 


00001 


X 2 


00045 




ntk$ 



utr>02 

$$$$ 

«3£^7 

»0i 1 
$'6X2 
0013 

14 

wfclS 

imfr 

m \7 
mzk: 
$$2l 
$2 22 . 
$226 
$ 22 $ 

$$2h 

$22t 

$227 

$262 

iseai 

$262 

$266 
$ k >6 6 
$$66 
$2 56 
m 67 
$262 
0041 

m *2 
$266 
$266 
S3M5 
M6b 
m 67 
$$62 
$261 
$262 
$266 



FORTRAN 1 . 0 * JUL at 1972 PAGE 0 *£ 

C UEC« 10®* Art Ba-*-a»UO 

C COPYRIGHT 1972 

C DIGITAL EQUIPMENT CORPORATION 
c Maynard# m 01754 

t ■ w» «a »•> E'ivTt fr« F ®® ' 

C THIS SUBROUTINE IS USED TO ENTER A F ILfe In 

C — A~ ~C A T A L 0 &UE~ 'Ctr t OS T 'C At OfT fr~AS WEttA S SfARCFM ^CRONf -CR 

C MORE FILES THAT COMPARE WITH A GIVEN FILE 

C ANtT TWSN THt 'OPTION 18 GIVEN TO ENTER 

c the given file in the catalogue. 

SUBROUTINE ENTER St) 

COMMON SLOTS CSS) , HEADER ( 88 ), ENTRY ( 21 )#COMLSTf 3 ) .KOUNT 

01 M F NS TO N NAME OS ) , t Kt S T ( 16 ) 

EQUIVALENCE (ENTRY 1 1 ) r NAME ( l ) ) # (ENTR Y (6) , PKLST ( 1 ) ) 
KEADtr’-tTKEADEtT— - 
WRITE (A,ll) 

U FORMAT ( * AUTO(l) OR MANUALT 2 ) ENCODE — 11 '/) 

REA0C4,12) ENCODE 

12 FORMAT ( 11 ) - — 

DO 12 1=1,16 
PKLST ( 1 )*?. 

IS CONTINUE 

IF(ENC0DE.E0.1.)GC TO 20 
C MANUAL ENCODE 

WRITE tA, 14) 

14 FORMAT C 1 HOW MANY PE AKS (8 IS MAX) — II 1 /) 

RE At) ( 4 # 12 ) NURPKS 

IF(NUMFKS.GT. 8 .OR,NUMPKS.EQ. 0 ) NUMPKS 86 
WRITE ( 4 , 16 ) NtfMPRS 

is FORMAT ( ' MASS VS INTENSITY 1 SET PER LINE »I 1 ,» TIMES 

* 

00 1 ? I= 1 ,NUMPKS 
Ja 1 * 2-1 

READ( 4 , 16 )PKLST(J),PNLST(J* 1 ) 

1<5 FORMAT ( 14 , 1 X « P 6.01 

17 CONTINUE 

60 TO AM ~ • 

C AUTO ENCODE 

20 WRITE (A, 20 if) 

2*0 FORMAT ( 1 TOLERANCE J 0 ELTCm)--F 3 ,B'/) 

REAO( 4 , 201 ) DECTM 
2*1 FORMAT ( F 3 , 2 ) 

RrA'StEirtr 

TENSTYB 0 . 

EfcND*P , 

Y«S 36 S 607 , 

21 IP ( REND. E 0 . 1.) 60 TO -25 

1 b 1 

220 C ALt;-"NEXT tTM ASS) 

IFCXMASS,EG.Y)GO TO 250 
CALL NEXT t XIN'TEN) 

XMASSaXMASS/ 10 , 

I MASS bX MASS 
FRAOl sXMASS-lMASS 
IP (FR ACT .LE . DECTM) GO TO 300 




KU'S 



FORTRAN 



i .ee 



JUL 21 1972 



PAGE TWO 



0*54 




X?HACT«1-FMCT 






lF(XFPACT t 5T„DEtTM)G0 TO 220 


0C5& 




IMASS««IMA5$ + 1 


0057 


300 


- -i-rtW'rS»ifyp^)-W»9»»l'K»$ 8- — — - - — 


0 k 5 * 




IF(IMASS,GT,MAS3)G0 TO 22 


0061 




IF tXlNTgN.GT, YfcNSTY) TENSTYsXINTfcN 


0002 




GO TO 220 


0063 


22 


Jsl*2-1 


0 k 6 4 




IF (TENSTY.LE.PKLST (J+l) ) GO TO 24 


0*0$ 




IF (Ti'M.aJfrCr TO 23 * 


khf&w 




Hs 1 5 


0k$7 




DO 23 L « I « ? 


00 71 




PKL8T(F)«PKLST(M«2) 


0k 71 




PKL8T(K4l)BPKl3TCf-U 


0072 




M s h ® 2 


00/3 


23 


coNTiwe — - - — - - 


0074 




PKLST(J) sMASS 


007$ 




PKLST CJ+13 »TtNSTY 


00 7 e 


2 4* 


HA5$»II*A$$ 


0077 




T E N S T Y tr X I N T E N 


0100 




GO TO 21 


0101 


24 


- * - - 


0102 




IF (1-9)22,240,240 


0103 


2 b fc 


■fcENDM* 


0104 




GO TO 22 




C 


CHANGE intensities TO STAGES 




C 


RfePORt ON AUTO ENCODE 


010$ 


25 


DO 260 |K »2 r# 


WlWfc 




JKb?*IK 


0107 




PKLST (JK)»PKLST(JK) /PKLST (2) *100, 


0110 


2bW 


CONTINUE 


win 




PKLST(2)«tU0, 


01 lk 




WRITE (3,20 


0113 


26 


F OPM AT ( • AUTO ENCODE 1 / 1 MASS INTENSITY • ) - 


01M 




CO 98 Ml ,8 


0115 




J B X * g t» 1 


0116 




lF(PKLSTCJ) ,EG.0.)GO TO 28 


0117 




WRITE (3,27) PKLST(J) ,PKLST(J+1) 


0120 


27 


FORMAT (3X,I4,4X»P7,2) 


0121 


25 


CONTINUE 


0122 




KOUNTs? 


0123 




REWIND 5 


0124 


4 k 


IF(FUGUST.tO,0)GO TO 70 




l 


search NODE 


0125 




CAUL COP-PAR 


012$ 




WRITE (4,67) 


0127 


67 


FORMAT ( * PUT ENTRY IN CATALOGUE? — Y OR N»/) 


0130 




READ(4,68)RESP0N 


wldi 


0$ 


FORMAT (Al) 


0132 




CALL CCGET (RESPON, 1 , CHARI) 


01o3 




IFCCHAR1.NE.25)GQ TO 90 




L 


PUT ENTRY in CATALOGUE ON REQUEST BY 'SEARCH) 




C 


AND AUTOATICALLY ENTER IF 'ENTER), 


0134 


7* 


WRITE (A.713 


013$ 


7 1 


FORMATS ENTER NAME , FORMULA , ETC--30 CHARS MAX'/) 




RTFS FORTRAN 



1,06 



JUL 21 1972 



PAGE three 



KJ 1 3fc 




CALL STRNG ( 30 , NAME) 


*167 




IF (HE ADFR(2) ,NE, UGO TO 720 


0i 4* 




NENTRY=1 


ial4i 




GO TO 600 - - " 


0142 


720 


WRITE (4, 72) 


0143 


7? 


FORMAT C * 00 YOU WISH TO REPLACE A CATALOGUE ENTRY 


0 1 4d 




READ (4 ,6b) RiSPQN 


W 1 4t> 




CAtt CCGETCRESFON, 1, CHARI) 


0l4t 




IFCCHAR1.KE.25)G0 TO 79 


ai47 


7oif 


” ~~ 


0151'. 


75 


FORMAT C ' WHICH ENTRY?--I4'/) 


0151 




WAOtAiTa) FfENTRt 


0152 


7 * 


FORMAT (14) 


^153 




C'ENTRYbHE AOER (2) "I 


0154 




1F(NENTFY.LE.LENTRY)G0 to 00 


015 5 




WRlTf t RTT^II^ttlYTR Y 


0156 


101 


FORMAT ( • WHAT? ',14, » IS LAST ENTRY * /) 


015? 




GO' TO' 730 


016fr 


yy 


NENTRYshtAOER (2) 


0161 


600 


HfcAOfcP (2) snfcAOER C23 + i 


016? 


6 0 


CALI GfcTBLR (NENTRY , LOCATE, 6) 




tr 


-AOO 'IM' OR REPLACE ENTRY 8L< 


0165 




00 61 1=1,21 


0 10* 




SLOT St LOG ATE) .ENTRY (I) 


0165 




LOCATE aLOCATE+1 


0166 


61 


OORT TRUE 


0167 




CALL PUTBl* (NENTRY, 6) 


0170 




WRITE (S' DREADER 


0171 




RETURN 


017? 




end 




rtUa 



P U h T R A N J , P) 6 



MAY 11 197? 



PAGE UN t 





C 


DEC-12-AHBA-A-UQ 




c 


COPYRIGHT 1972 




c 


LIGITaL tCulPM£NT corporation 




L 


MAYnARO, PA 21754 




l 


---•.-JKTfcftP.pT- — — — •» 




C 


this subroutine mts any one of a ascii chars 




c 


PROM A GIVEN WORD, 


^ k: 0 k 




SUBROUTINE INTEHP CNCHDS, CMD» ICDE) 






COMMON SUC 1 S (85 ), HEADER (855 , ENTRY (21) »CCMLST (3) 


$ U! id 4 




CALL CCtETlChD# l#CH.ARl) 


0 k : <£ fc 




CHARisCHARl* W 


k3l£' Wfc 




CALL CCGfcT LCHD,.2»CHAR2) . 


kJ k k 1 7 




Char 1 sCHAR J +CHAS2 


lfc 




oo its i » i t NChQS 


#e u 




CALI,. CCGtT (COM|.ST» 2*1-1 , CHAR 2) 


tit* u 




CHAR2pCHAR*.*10iA 


tf t- 1 a 




CALL CCGfcUC0MLST,2*l,CHAR3) 


00 1.4 




C H A R 2 P C H. A.R 2 + C HAS £ 


rffc lb 




IP (CHARI. EG. CMAR2)GC TO 20 


m i& 


lto 


CONTINUE 




c 


-----illegal command return 


0017 




ICCEP9 


k) 0 2 to 




RETURN 


21 




ICDE*I ... 


0ir 2fc 




RETURN 


k)^20 




tND 




nTFi EuKTKAN l.Cfc may 11 1S72 PAGE 

C L'EC-iP-AMUBAf A«UQ 

C COPYRIGHT 1972 

C DIGITAL EQUIPMENT CORPORATION 

C MAYNARD* M 6 017 5 4 

0 «*»--*XLIST.PT->-“«“ 

C This sup routine odes two different types op lists 

C tl) XLIST-L1ST THE HEADER INFO & EACH ENTRY NAME 

c (.23 CLisT-Lisi each entrycname AND PEAKS) 



tik-tik 




SUBROUTINE XLIST fFLGLST) 


tikti6 




COMMON SL01S(8S) ,HEADER(95) 


titVjQ 




COMMON/ A/1DEV 


tiktiS 




IFIIDFV.EG.63GO TC 3 


tik tit 




DEFINE FILE 7 ( 1 , 85 , Li , L V 2 ) 


tiktil 




CALL I N IT (03 


tiki \ k> 


0 


HEAD ( IDEV ' 13 HEADER 


DU l 1 




lFlHEAOERC23.EB.nGO TO 40 


titil'd 




WRITE (4. 103 


tik\6 


lw 


FORMAT!' LO » HI LIMIT OF ENTRY NUMBE RS-- I 4 , I 4 ' / 3 


001 4 




READC4, lU UMLU.LIMHI 


tik i h 


1 1 


FORMAT 114, IX. 143 


H)k\ t 




LENTRY aHEaDER (23-1 


Dfciy 




lF(LIMHJ e EG.fc.0R.LIMHI.GT.LENTRY3LIHHIsL£NTRY 






IF CL IMLC . EG. 0 3 LI ML Os 1 


tikli 




IF CL .iML0,GT,LlMHI3LIML0»LlMHI 


tiklk 




IF (FLGLS 1 .EG. 13 GO TC 3D 




C 


LIST HEADER INFO 


tik-16 




WRITE C 3, 20 3 (HEADER (1) , 1*3,6) 


tiki* 


2 k* 


FORMAT (2(IX»2A6»/33 






WRITE (3, 2 13 (HEAOEfim, U7.173 


m 2E 


21 


FORMAT (IX, 1 1 A6 , / ) 




C 


LIST ENTRY NUM.OSER MESSAGE 




C 


ALSO LIST PEAKS IF FLGLSTM 


tikl7 


3k:< 


WRITE (3,313 


kJMfc 


61 


FORMAT ( ' ENTRY IDENTIFICATION') 






DO 3S lsUMLO.LlMhl 






CALI G6TBLK (1 ,LCC, IDEV) 


4k66 




IF (SLOTS IL0C1 . EQ.WJ GO ! C 36 






WRITE (3,32) I, (SLOTS (J) , J *LOC , LOC+4) 


tiktS 


32 


FORMAT (/1X,I4,4X,5A6) 


tik 




IF (FLGLST.t.0,0) GC TO 39 


uvy/ 




WRIT ECS, 333 


ti k 4 k 


33 


FORMAT ( ' MASS INTENSITY') 


ti k* <4 1 




DO 35 K * I , 8 


00 4 2 




J*L0C+3*K*2 


tik 4d 




lF(SLOTSCJ) . EQ.U3GC TO 35 


tik 4 4 




wRITE(3,34)SLGTSCJ),SL0TS(J + n 


ksa45 


34 


FORMAT C3X..1 A, 4X , F 7.-2 3 . - ... _ 


0&4O 


30 


CONTI' Dfe 


4 k:-. 4? 




GO TO 39 


0k 02 


3fc 


WRITE (3,37) I 


0k 5 1 


3/ 


FORMAT (/ ix, 14, 4X, UNUSED-- ---' 3 


tikSk 


39 


CONTINUE 


tikSd 




RETURN - 


tik$4 


4 k* 


WR1TE(4,4|J 


tikas 


41 


FORMATE' NO ENTRIES IN THIS CATALOGUE'/) 



UNE 




R1 kb k Ok T KAN \ 9 *t 1 1 1972 PAGE f>0 

013^ ft 1 1 U ft ft 

$k; b/ End . 





KUS F UK TRAN 



PAGE .0.N.6 



00# 4 
0 0 # 5 
VJtttfb 
# 0#7 
tok* 1 1 

#0U 
W 1 k 
WfcXa 

0014 
#01 £> 
tffclfc 
0*17 
tf 2 y 
#021 
#022 
0 02# 
002 4 
i dfc.25 

#027 
0 0 4 k;> 
Wfc-dl 
#032 
tfU33 
0 0 0 4 
tftf 3$ 

##37 
iO 0 4 0 

#0 4 1 
It 4 k 
#M3 
#0 44 
0M5 
#040 
#M7 
tf fc* o k 
140 Di 
tifedS? 



i.ee 6ii.y..._ii 1972 

C DEC-12-AMLBA-A-uO 

C COPYRIGHT 1972 

C DIGITAL EQUIPMENT CORPORATION 

C MAYNARD# HA 01754 

L --- — DELETE. PI- — — _ - • 

C THIS SUBROUTINE DELETES ONE 21 EL PT WORD 

C ENTRY IN A CATALOGUE BY REPLACING ALL 21 

L WORDS WITH 0.6 

L A ' CR ' OR '0' CAUSES A RTN TO ' CMD ' 

SUBROUTINE DELETE 

common slot sees) # header 1 85) 

C 0 M HON/A/ID f V 
IFII0EV.EG.5)G0 TO 3 
DEPINE FILE 7 ( 1 , 85 , U , L V2 ) 

CALL INITCfe) 

3 READ (IOEV ' 1 ) HEADER 

IP IHt ACER 12) .EG. 13 GO TO 40 
WRITE (4, 101 

IK PORMAT M ENTRY NUMBER — 14'/) 

9 IP (HEADER (2) . E Q . 1) GO TO 46 

READ C4, 11) NLIM 
11 PORMAT f I 4 ) 

IF l NUP. EG. J!) GO TO 2.2 

LENTRY»HtADER (2)-l 
I PINUP. GT.L ENTRY) GO TO 20 
IP (NUH.LT.LENTRY) GO TO 30 

31 HEADER (.2) aHEADER {2)-l 
NUPeMjM- 1 

CALL GET PLK INUPhLC.C A,# IQE.V) 

IF (SLPTSUOCA) .EU.ejGO TO 31 

GO TO 7 ........ 

2v CALI GETBlN (NUM,LCCA, IOEV) 

lENDsLULA. + fiE ....... ............ 

UO 15 IsLOCA, ZERO 

SLOTS (I)i0,0 

15 CONTINUE 

CALL. PUTBCR CNUM, IDE V) 

GO TO 7 

32 WRITE (IUEV ' U HEAOIR 

RETURN 

Zv wRlTtt4,21) LENTRY 

21 PORMAT ( ' NUPBtR '#14,' IS CAST ENTRY'/) 

7 WRITE ( 4 , g) 

8 PORMAT (1H ) 

GO TO 9 

4W WRlTtC4,4lJ 

41 PORHATC NO ENTR1.ES IN THIS CATALOGUE'/) 
wR1TE(IDEV»1)HEAOER 

RETURN 

CND 




KIPS FORTRAN 1,06 
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PAGE ONE 





C 


DEC-12-ANLBApApUQ 




c 


COPYRIGHT 1972 




c 


DIGITAL equipment corporation 




c 


MAYNARD, MM ei752 




c. 


®*®« i s?<?5Q U.I 5 M ^Jjslm «*. ® - 




c 


THIS SUBROUTINE PACKS ALL ENTRIES OF A 




c 


GIVEN CATALOGUE ELIMINATING ALL EMPTY 




l 


ENTRIES THAT WERE CAUSED BY DELETIONS, 


0002 




SUBROUTINE SQUISH 


00 03 




COMMON SLOTS (85) ,H£ADEfl(83) 


0 0 0 4 




COMMON/ A 7 IDE V 


00 0b 




DIMENSION TEMPC6S) 


0 0 0 6 




IF C ICE V .EQ.63GO TO 3 


000? 




DEFINE FILE 7 ( 1 , <i5 , U , L V2) 


(A is lit 




CALL IN IT 


00 H 


3 


READ (IDEV ' 13HEA0EK 


0k Ik 




IEND?HEADER £23-1 


vH ? l ^ 




nBLKSb (I fcNC-1) 74+1 


Id (old 




I AS? 


00 lb 




IBs? 


lb 




N£NT7«0 


VJY.17 




LOCB.sl 


00*0 




LF*e 


aim 




DO ?0 K«1 ,NBLKS 


002k 




LOCAfl 


0025 




READ (IDE v ' I AJSLOTS 


0024 




X A a I A+ 1 


0025 




JG>D»« 


002b 




IF U.EQ.NbLKS.) JE nObIENO 


00k? 




IEND®IENO«d 


0000 




DO 2V J»1 , JEND 


0001 




IF (SLOTS (LDCA), EG. 03 GO TO 12 


000 k 




LP * 1 


0000 




nENTTsnEnTT+1 


0004 




LEnD °LOC A + 20 


0005 




UO IK I cLOC A , LEND 


0000 




TE>PlLDC6)®SL0TSll) 


003? 




LOCBsLOCB+1 


00 40 


10 


CONTINUE 


00 4 i 




IF fL0C6.LT ,853 GO TO 12 


004 k 




WRITE ( IDEV • lb) TEMP 


0040 




lBsIB+1 


00 44 




LF*P 


00 4b 




LOOP s 1 


0045 


lk 


LOCA=L0CA+21 


004? 


20 


CONTINUE 


0050 


30 


continue .... . 


00b 1 




IP (LF .EO.23 GO TO 2S 


003k 




ftHITE (IDEV ' IB) TEMP 


0053 


2 5 


HEADER (23 cnENT T+ 1 


0004 




WRITE (IDEV ' 13 HEADER 


00 5b 




RETURN 


0 0 0.5 




end 




kU S 



FORTRAN J ,K6 



PAGE UNE 



WAV. il 



197 2 



UEC«12*AMLbA*A«u0 
COPYRIGHT 1972 

DIGITAL lglipment corporation 

MAYNARD# HA 01754 

■ w® bp HO V t .5 T *« — - - — 

THIS SUBROUTINE MOVES A CONTIGUOUS SET OF 
ENTRIES (Kl,2, 3#...,AIU FROM THE CATALOGUE 
ON DEVS TO THE CATALOGUE ON DEV7. BOTH DEVICES 

ARE CHECKED EOR IMT. - 

subroutine hove 

common SL01SCBS1 #HEADfcaC85) 

DIMENSION SL (85) # HEAD (85) 

READ (6 ' 1 ) HEAD 
IFCHEAPm .EG. 1)GC TO 4? 

WRITE (4, 100) 

FORMAT ( 1 LO a HI LIMIT OF ENTRIES TO MOVE—14 , 14 t /) 
REAOU.lie) LIMLO# LIHHl 
FORMAT (14, IX# 14) 

LENTRYSHEAD (2) "1 

IF (l I mHI.EO.P.OR.LIMHI.GT.LENTRYJLIHHIbL ENTRY 
IF (LIMLO. EG. i2)LiWLCAi 
IFll.lMLC.G1 ,LIMHI)LIFL0«LIMHI 

UQ HOVE — - 







KSTOPELIMHI-LIMLO+I 


2 k: 




FIRSTS* CLIMLC+ *5)74 + 1 


tikZl 


1* 


IF(LIML0.LE.4)G0 TO 11 


ti%22 




LlMLCsLIMLO-4 


tik' 2 0 




GO TO 10 




n 


FlRSTshE APfefi(g) 


tik>2b 




FIR8T7*(FIR$T+3)/4+l 


tik2b 


12 


IFiFIRST.LE.4)G0 TO 13 


m2! 




FIRST bE JRST-4 






GO TO 12 




It 


KBEGINb if IRST®1 ) *21+1 


wy* 




K ST ART= (LIMLO-1) *21tl 


totod 




REA0(7 'FIRST7TSL 




25 


REA015' FIRSTS) SLOTS 


tiktib 


2* 


NENDSKST ART +20 


ti k $ fc 




DO 50 IsKSTART.KENO 


W67 




SL(KbFGlN)»SLOTS(I) 


tik 4 1> 




K BEG 1 N s ft B E GIN .♦ J_ 


tik 4 i 


5 * 


CONTINUE 


tik 42 




HEA0tR(2)»HEAD£R(2)+i 


ti k 4 t 




K ST PPsKSTOP-1 






IF (KSTQP.EG.0) GQ TO 59 


*3^4$ 




IF (KBEGIN.LT. 85) GO TO 55 


4046 




N BEGINS 1 


tiK4? 




WRITE (7 ' F IRST7) SL 


bDt 




E I R S T 7 s F IHST7+1 




55? 


NST ARTbKSTART+21 


tikbk 




IF (KSTAFT ,LT.85)GC TO 26 






KST ARTsl 


0.0.64... . 




... h I K S t £ sF-I R SI 6*1 


00 55 




GO TO 25 


tikbb 


t>y 


WRITE (7 ' FIRST7) SL 



USE i42 

0fc04 
0005 
00 Ot 
0007 
0010 
0011 
0012 
0010 
0014 

00 15 
0010 



100 

110 




HU b K OR TRAN 



1 . 



tfY d 7 

dtfafc 

J A V 

A 1 

tfK'QA 




HAY U 1972 



WRlTt(7» 1)HEADER 

RETURN _ 

*Rm( 4 ,M) 

Format ( 1 no entries in this catalogue’/) 

RETURN 

tm 



PAGE TWO 
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EURTRAN 1.4S6 
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C 


DEC.-12-AMLiJA-A-UO 




c 


COPYRIGHT 1972 




c 


DIGITAL EQUIPMENT CORPORATION 




c 


MAYNARD , HA t ] 7b A 




c 


• •»*>*» CDMPAR ».F.Tj**«»e. 




c 


This ROUTINE IS USED TU SEARCH FOR A 




L 


HATCH BETWEEN A GIVEN ENTRY AND 




C 


ALL PILES IN THE GIVEN CATALOGUE 


i ctetik 




subroutine compar 


0000 




COMMON SLOTS (85) , HE ACER (85), ENTRY (21) 


0 1C 0.4 




WRITE ( 4 # A 1 ) 


M VIS? 


41 


FORMAT (' TOLERANCES DELT(I) ,*HITS— F3,(S,I2'/) 


000 




READ(4,42) CELT 1 , NUHPKS 


000? 


4k 


FORMAT (F3.0,1X,12) 




C 


00 THE SEARCH 


1 <r 




WRITE (3,43) 


0*11 


43 


M3RMAT(/« REPORT OF SEARCH'/ 1 ENTRY IOENTI 

IFICATION SHITS') 






E L A G • 0 . 


00 l o 




IfcND»HEA0fck(2)-l 


tf 0 1 4 




oo sb i * i , iend 


0k IS 




18LR * (1 + 3)/ 4*1 


0k 1 fc> 




LOCATE* f 1 1-4* (lfiLN»2))-l ) *2 1 + 1 


0^i ; 




R E A 0 ( 6 ' 1BLK)SL0TS 


0fc2k 




ICTRbE 


wk 0 i 




00 55 L * 1 , 8 


0kkk 




LL*44L*2 


00k3 




ip(fntry (ll) , eo.a)GC to 55 


0k 0* 




00 .OS? N* 1 , 6 .... 


0kk& 




KK»LUCATE+SfK*2 


tfkkfc 




IF (SLOTS(KR).NE.ENTRY(LL)) GO TO 50 


0kk/ 




OIF F "SLOTS (Kw*l) -ENTRY CLL+1) 


0030 




IF(OIFF.GE.O) GO TO 45 


00 31 




OIFF*-DIFF 


003k 


45 


IF (01FF.GT .DELTIJGC TO S0 


0033 




ICTRbICTr*} 


0030 


$J0 


CONTINUE 


00 35 


55 


lost inuf. 


003C5 




IFULTR.LT.NUHPKSJGO TO 65 




C 


REPORT THE HATCH 


003? 




WRITE (3 , 57) I , (SLOTS ( J ). J* LOCATE. LOC AT.E+4 T. I CTR 


0 k 4 k 


5? 


FORMAT ( 1 X , 1 4 , 2 X , 5 A6 , 1 3 ) 


0041 




FLAG" l . 


00 4k 


55 


CONTINUE 


00 43 




IF (FLAG .EG. 1 ) GO TO 67 


0 k 4 4 




WRITE (3,56) 


0045 


5^ 


F OR MAT (' NO MIC WEST/ ) 


0 k 4 b 


6/ 


RETURN 


004? 




tND - - 




tmS FORTRAN 1 »K 6 „ MA Y U 1972 PAfifc 





C 


OEC»12^AMUJAi-A«UO 




C 


COPYRIGHT 1972 




c 


DIGITAL. tCUlHMtNT CORPORATION 




t 


MAYNAPC, HA 01764 




c 


mm . 9 r«lMX # P I ■«!»•**. * 




c 


THIS SUBROUTINE CHECKS A CATALOGUE TO SEE 




c 


IF IT HAS BEEN IN1TEU® IF IT HASN'T THE 




c 


INJT IS DONE AND IF IT HAS, THE I N I T IS DONE 




c 


unly if keoues rtu. 


m*’*! 




SUBROUTINE I N I T ( FLG ) 


tf i L tiO 




COMMON SLOTS l&Jii, MEADES tfl5) , ENTRY C2 i) # CC.MLST C3J 


0004 




COHMCN/a/IOEV 






IF IFLG.EG.I6) GO TO 3 . 


\AV:>£t 




IF IIDEV.EG.6)G0 TC 3 


tik'V 7 




DEFINE FILE 7(1., aS,U,LV2) 


tfltf 1* 


4 


HEAD ( I D E V ' 1)HEAD£R 


0*11 




IF (HEADER. (1) .EG. 1.92.4, 3 GO TO A 


Wk> 1 k 




WRITE (4,7) IDEV 


0feU4 


7 


FORMAT ( ' LOGICAL DEV', 12,' IS BEING INITIALIZED'/) 


0b 14 




GO TO 8 


kit 15 


4 


1F(FLG 0 EQ,16)GO TO 30 


Ufctfc 


b 


ENTRYm*1934» 


016 17 




tNTRY C 23 


0t’£k 




WRITE (4, in] 


0041 


10 


RORmaTC' name QF CATAL0GUE»"12 CHARS max'/) 


0t 




cau. strng (is, entry (3) ) 


00k4 




RRITfe(4,ll) 


0bk4 


ii 


FORMAT ( ' 0ATE--12 CHARS MAX'/) 


00*5 




Call SIRNGLllrtNTMlS)) 






WRITE (4, 12) 


0tk/ 


Ik 


FORMAT ( ' USER MESSAGE--E6 CHARS MAX'/) 


0k 4b 




CALL S1RNGC66, ENTRY (7)) 


0b 4 1 




IF (FLG.l9.nG0 TO 20 


0b4k 


5 


DO ?ew 1*1,17 


0fc'44 




HEADER (I) afeNTRY CD ... 


00 44 


k b b 


LOR TIM F 


00 45 




WRITE ( I C F v ' 1 ) HEADER 


0b4c 




RETURN 


0b47 


£16 


WRITE (4,21) 


0040 


kl 


format ( « are you suhe?--y or n</) 


0041 




r£aD(4,22) RESPON 


004k 


kk 


FORMAT (Al) 


0044 




CALL CCGET (RESPON, 1 , CHARI) 


00 4 4 




IF (CHARl.fr. G. 25) GO TC S 


0045 


4 b 


RETURN 


0k 4b 




CND 



ONE 



i 




RTFS EURTRAN l m %6 



— HA* U 4972 



PAGE Q N E. 



0 L 04 

iflkab 

0L k5 1 

0 U 0 ? 
0 K 4 * 
Wfc 1 1 
001 * 
0 fc .13 



1 

C 

C 

c 

c 

c 

c 



1 * 



DEC«i2*AMLbA®A«U0 
COPYRIGHT 1972 

DIGITAL EQUIPMENT CORPORATION 
KAYNARO* PA £1754 

•••ww^NEXT^FT *.•»-.*?.» 

THIS SUBROUTINE GETS T HE NEXT VALUE OF 
A GIVEN PASH FILE# 

SUBROUTINE NEXT(VALUE) 

COMMON SLOTS C 8 5) # HEADER (85) # EN TR Y C24 ) , COMLST (3 5 , KOUNT 
DIMENSION ARRAY (85) 

IF l R CUNT * G T ♦ €UANO« KOUNT ,LT # 85) GO TD 10 
KOL'NT 

HEAD (S) ARRAY 
ROUNT«*OUM + l 
V AL UE b ARRAY (FOUNT) 

RETURN 

END . 




Jill'S. FORTRAN -I.IC6 MAY U U72 PAGE ONE 

C DEC® l 2“ AMLt! A» A^UIl 

C COPYRIGHT 1978 

C DIGITAL EQUIPMENT CORPORATION 

C MAYNARD, PA P 1754 

L . »'p»»»PUTBLK.*E.Tj»*-^.!** 

t THIS SUBROUTINE PUTS ONE BLK OF 4 ENTRY SLOTS 

C INTO THE CATALOGUE . _ . , 

OlrfcJL SUBROUTINE PUTBLK (NENT, NQEV) 

ifltiaS COMMON SLOTS (85) .. ... 

0Y.H4 iBLt* « (NENT+3) 74*1 

Wfckj5 WRITE C NCEV .' IBLK ) SLOTS 

RETURN 

Iflfcu7 END 




RIPS RUKlRAR l,K6 



MAY 41 1972 



PAGt QNt 



KJlctsk 
an ad 
ionae 
OEWfc 
ID fclflt 

Wl 0ti7 
«JfclU 



C OEC-l?»AKtBA-A«UO 

C COPYRIGHT 1 S 7 2 

i DIGITAL. EQUIPMENT CORPORTION 

C MAYNARD, M A It I 7 S 4 

L .. *>»»*BGtTBLK«FT *.*■.».* - 

c THIS SUBROUTINE GETS ONE SL.K OP 4 ENTRY SLOTS 

SUBROUTINE GETBUUNhNT ,LOC,NDEVj 
COMMON SLOTS (B9J 
lBLK«(NtNT»3)/A+i 
LOC*t (NENT-4*(IB|.K-2) )»1) *21 + 1 

. REAM (NUEV ' IBLfUSUCTS - — - - 

RETURN 

End 
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i 




AMLBA«AsUC 








/ 


COPYRIGHT 1972 








/ 


digital 


LUU IP M ENT 


corporation 






/ 


MAYNARD 


, MA 01754 








/ 








/ 


THIS PROGRAM CPLNS 


A FILE OF USER-SPECIFIED 






/ 


L fc N G T H 9 


UNIT, S NAME AND THEN CLOSES IT. 






/ 


THIS WILL BE THE NEW CATEGORY FILE TO BE 






/ 


IMTED 


AND THEN ACCESSED VIA DIRECT ACCESS I/O. 






/ 


CALLING 


SEQ J ODE V 


SONAME.EX (NBI < 






/ 

/ 


^ h F R E: NB 5 NUMBER 


BLKS OF OUTPUT FILE 




0012 




Npygsia 








00 w 1 




FIELD 1 








20(40 










1*^2 k 


<5 2*5 1 




CDF 0 






1 2 (5 U 1 


10/7 




tad 


(7003 


/JOB STATUS WD 


12002 


0770' 




DC A 


7746 


/NO SAVING S NO RESTART 


12*56 0 


0211 




CDF 10 






1 2(404 


4770 




JMS I 


C 77 00 


/GET USR 


12i4*-0 


0010 




ie 






1246C 


4774 




JFS I 


(200 


/GET CO 


12*565/ 


0 0 0 0 




5 






12'31l'- 


2001 




20*51 






12*51 1 


1773' 




1 AO 


7 600 




12*312 


4/7 4 




J NS I 


(200 


/GET OUTPUT HANDLER 


12(410 


000 1 




1 






12*314 


0001 




a aei 






12(410 


02“1 




.JMP 


ERR 




12(410 


1773 ' 




TAD 


7600 . 




12(41/ 


47/4 




JMS I 


(20 0 


/ENTER OUTPUT FILE 


1214215 


0003 




3 — 






12(421 


/OKI 




7F01 






121422 


0000 




0 






126520 


0242 




JMP 


EWR+1 




1 2*32“ 


1773' 




TAO 


7 600 




12420 


*307 2 




AND 


(7760 




12i42P 


7112 




CLL RTR. 






12(427 


7012 




R T R 






12*30(4 


0200 




DC A 


5 


/LENGTH OF FILE 


12(401 


1773' 




TAO 


7600 




12(402 


4774 




J ^ S I 


(200 


/CLOSE OUTPUT FILE 


12(430 


000 4 




4 






12*304 


7601 




7 ECU _ 






12000 


0000 




e 






12030 


0243 




JMP 


LHR *2 





12*50/ t>203 EXIT, COP C1F 

12«Afc. 077 1 JMP I C7665S /GO TO MONITOR 

121441 7 1201 ERR , I A C /BAD OUTPUT DEV 

12*542 71201 IAC — /.OUTPUT f ILL ENTRY. LRRR 

12*540 7(4(51 IAC /FILE CLOSE OR WRITE ERROR 

126344 4247 OCA **A 




/ 






RAL£© V 7 5/11/72 PAGt 1*1 



1244& 


4774 


JMS 1 


izm _ ... 


/ TtLL USfch 


12440 




7 






1244/ 




G 






124b* 


t>207 


JMF 


IXIT 


/AND GO TO 


12171 


/ b * 5 




.... 




121/2 


/7btf 








121/C 


/bfctf 


- 





- „„ 


121/4 










1217b 


7? £ 








12170 


7/4t> 








12177 


7ti*3 









I 



MONITOR 




/ OtC-12-AHEA-A-UO - PAL8«V7 5/11/72 PAGE 1*2 

fcKH 2t«l •• - - 

EXIT 2)647 
NUX2 m 12 




/ L'tCsl2-ARtbA««Ae-UIi PJtLB»V7 5/11/72 PAGE. 1 



/ DEC-12-AMLBA-A-UC 

/ COPYRIGHT 1972 

/ DIGITAL EQUIPMENT CORPORATION 

/ MAYNARD, HA 01754 

/ — - -TRANS, FA— — 



/TRANS rHITTE.N TO TRANSCRIBE AIPOS FILES 
/INTO PPP FCRTRN 3W0R0/8S PER BLOCK 
/DATA FILES UNDER 0S8 
/ 

/ C ALU I NG. SEQUENCE 
/ODE V SONAHfc »E * T « 

/ - - - - 

/OS A INPUT 



/ 


UNIT T 


/ 


STBLK J 


V 

/ 


LENS 


7 







0 k 1 k 




lA«lfl 








vkl 1 




Q A 81 X 1 








^12 




ND*2s|2 












FIELD 1 








f d to km 




*2000 






128*1 A 


u>n 


BEGIN, 


TAD 


(3001 




128*1 


422k 




CCA 


OQA 




120*2 


147$ 




TAD 


JUtJUl 


„ 


128*4 


422$ 




DC A 


<j$B 




128*4 


6201 




CDF 0 






128*5 


147$ 




TAD 


C 7003 


/JOB status word 


128*6 


377 4* 




DC A 


7746 


/NO SAVING 8 NQ RESTART 


128*7 


6211 




CDF 10 






12.812 


47 7 3 




J MS I 


t77M 


... /GET. USR 


12811 


kklk 




10 






12812 


*772 




JhS I 


(200 


/GET CD, SPECIAL MODE 


12813 


\6k\ki$ 




5 






12814 


$2vk 




5200 






12816 


1771 » 




TAD 


7600 




12816 


4772 




JhS I 




./SET. OUTPUT HANDLER 


12817 


k) 1 




1 






12826 


3001 


QUA, 


3001 


. 





12821 


577fc t 




JhP 


ERN 




12822 


1771 « 




TAD 


760 CL 




12823 


47 7 2 




JhS I 


(200 


/ENTER OUTPUT FILE 


12824 


0003 




3 - 





.. 


12825 


7601 


OSB, 


7601 






12826 


0000 


UFL, 


0 






12827 


$7$7 » 




JhP 


tNR*2 






/ UtC"i2 w AhLfcA5*A«"U0 

EJECT— 

/ 







/USA STUFF 

J 




l kdAb 


13&6 


/ 

MESS, TAD 








OCA 






4/05 


JMS 


l - 


\2*yy* 


4?04 


J^S 


I 




1/0 J ' 


TAG 




1 2(335 




TAD 




12i33c 


/?&& 


$ M A 


SI A 


1 2 (3 3 7 


5252 


JhP 




12d4(t 


1703' 


TAC 


— . 






DC A 




12.342 


1301 


TAD 




12343 


513 12 


DC A 




12.344 


4765 


JMS 


I 


12345 


4/04 


JtfS 


I 


12(340 


7 2 2 2 


CLA 





1 2 a 4 7 


1703' 


Tad 




121352 


3702 * 


DC A 




12(351 


1357 


TAD 




12(352 


3212 


DC A 




12(353 


4705 


JhS 


I 


12(354 


4704 


JP$ 


I 


12(350 


/2k' 1 


C L A 


I AC 


12(355 


1703' 


TAD 




12(35/ 


/(? 41 


CIA 




12(352 


5333 


LJCA 





PAL8-V7 5/11/72 PAGE l-l 



CMESSi-1 

*0X2 

tTTY-C- 

(TTYl /GET UMT NUMBER 

NUM 

t-7 

CL A /NUP<s7? 

MESS /NO 

NUM /YES 

1UNIT 

CMESS2-1 

N0X2 

CTTYC 

(TTYX /GET STBLK INPUT 

NtJM 

RSB /ST8LK OF 'AIPOS DATA' 

(MESS3-1 
N0X2 
( f T Y 0 

(TTY1 /GET LEN INPUT 

NUM 

IFL /-(LEN+1J0F 'AIPOS FILE' 




Ut-L ~ 1 2 * ANLB A <* A«*LO P A L 8 » V 7 5/11/72 PAGE 1»2 



EJECT 

/ 

/NON DC YOUR STUFF 



/ 





135o 




TAD 




1-2 


12062 


0004 




DC A 




FLGINF 


l£tfOC> 


122b 




TAD 




USB 


1 2 tfb * 


3705' 




DC A 




(* SB 


12(3 1>5 


122* 




T AD 




ODA 


12*)bb 


375a i 




DC A 




QL>AX 


121007 


4/53' 




JNS 




ROHEAD 


12«s7t 


02i 1 




CDF 


1* 




12071 


47 52' 




JAS 




.BE AC. 


12072 


1351 


wTR, 


TAD 




(5777 


12073 


3»11 




DC A 




QA 


12(07 A 


135(0 




TAD 




(-125 


12375 


3352 




DC A 




DC 


12.07b 


bi/Hl 


IDR, 


CDF 


* 




12(077 


1347 




TIC 




(27 


12 m 


0411 




DC A 


1 


GA 


121 Yl 


141(0 




TAD 


1 


l.A 


1 2 1 L2 


000b 




DC A 




r*p 


12110 5 


1336 




TAD 




THP 


1 2 1 R « 


04U 




DC A 


I 


OA 


12 Ilf 5 


141* 




TAD 


1 


14 


121*5 


0411 




DC A 


I 


OA 


1210/ 


1336 




TAD 




TMp 


121 n 


1046 




TAD 




C -0777 


12111 


765* 




SNA 


CLA 




12112 


2004 




JSZ 




FLGINF 


12110 


7 4 1* 




SKP 






12116 


5745 * 




JPP 




DO N £ 


1211b 


52U 




CDF 




IjB 


12116 


20O2 




ISZ 




oc 


12127 


741^ 




SKP 






12122 


5025 




JNP 




DON 


121 21 


2001 




I5Z 




IC 


12122 


5276 




JNP 




COR 


12120 


4752 * 




JNS 




RfcAD 


12126 


5276 




J FP 




LOR 


1212b 


4744 * 


OUN, 


jrs 




w H I T g 


12126 


2001 




ISZ 




IC 


12127 


5272 




JNP 




ntr 


1213* 


527 1 




J HP 




W f R * 1 


12131 


16 *** 


1C, 


0 






12102 




00, 


P 






12100 




IPL, 


* 






12100 




FLGINF, 








12105 




I UN 1 T , 


* 






12106 




TNP, 









/HEAD IN HtADEH BL.K OF AIPO.S FILL 
/GET £1851 BLOCK 
./OUTPUT BUFFER" 1 
/AND CTR 



/CHECK FOR 

/ 37777777 

/NO 

/YES, 2 SETS YET? 
/NO, 1 SET SO FAS 
/YES, ALL DONE 



/OUTPUT BUFFER IS LOADED 



/GET NEXT INPUT BLK 



/RESET OUTPUT JU*K 
/INPUT ALSO 




/ 



UtC-12-APLfiA-A-LQ 



P AL8«V7 5/1 1/72 PAGt 1-3 



1214* 

UIA& 

1214b 

1214/ 

l215lf 

12131 

12152 

12133 

12134 

12153 
12136 
1215/ 
1 2 1 6 Ic 

12131 

12132 

12135 
12164 
12163 
12166 
1216? 
12171c 

12171 

12172 

12173 
121/4 
12173 
12176 
1217? 

IkHHIfi 
1 2 2 IA 1 
122H2 

12263 

12264 
12263 
12266 
12267 
12216 
12211 
12212 

12213 

12214 

12215 

12216 
12217 
12226 
12221 



PJfcCl ... 

2437 
2266 
4 6 6 1 
6627 
7663 
37/7 
2222 
22/4 
2 4/6 
2464 
/7/e 

2522 - 

2246 

2311 

/7/1 

2433 

24 12 
2 4 W _ 

266 1 
24 73 
24?l 
?6«6 
16 0 
7.7 

/7«6 
1 6 v X 



226W 




PAGE 






6211 


DUNfc, 


CDF 10 






4777 ' 




JhS 


WRITE 


/LAST white 


1776' 




TAD 


Q36 


/CLOSE OUTPUT FILE 


7M1 




CIA 






1775' 




TAD 


wse 




3212 




DC A 


* *5 




1774' 




TAD 


7600 




47/3 




JhS I 


(£00 




10 VI 4 




4 






7 6 HI 

bA 1/ LA 




7601 






r ! If? * 

3772 ' 




0 

JMF 


ERRM 


/file close ergr 


1371 




1 AD 


( me s s 4 ** 


1 


36 12 




DC A 


NDX2 




4?7fc 




JMS I 


t.TT.YC. 




5767 ' 




JMP 


BEGIN 




62tf3 


tXlT. 


CDF CIP 


0 




3766 




JMP I 


(7606 


/GO TO MONITOR 




/ Li£C»i2"*ML6A“A»UC _ PAL8»V7 5/1 1/72 FAKE 1-4 



EJECT .. 





51“1 








LINM6141 




kk*>2 








.POP »2 






102k 








LO A I k ■ 1 320 




kkkO 








IMA 1 2 a 







kkkl 








A XO * 1 




12222 


k k to It 


RlUCU- 


it 







— - 


12228 


27 55 * 




IS2 




I Ft 




12224 


741k 




SKP 








12225 


5257 




JKP 




FIXUP 




12225 


1784 ' 




TAD 




IuMT 




12227 


711k 




CLL 


RAR 




/GET EXTENDED UNIT 


1220 k. 


1050 




TAD 




xzic 


../ELDsB* ENABLE EXT ADR 


12281 


0240 




OCA 




X OB 


/XOB BITS SET 


12202 


7206 




CLA 


RTl 


...... 


/GET INSTRUCT UNIT & 


12280 


7kk6 




KTl 






/PUT IN TO BIT 8 


1220“ 


1002 




TaO 






/OCTAL POR'RDC 


12285 


0245 




DC A 




RUC 




12288 


8141 




LIKK 








1220/ 


lk2k 




LUA10 






1224k 


2kkk 




2MJ 




.... . 


...... 


12241 


0k2O 




1 8 A 








12242 


lk 2.k 




LOAIK 







12240 




X OR * 


V 








12244 






A XL 






, „ 


12245 


id $ v> y 


H[)C, 


$ 








12248 




RSB, 


0 






/.B.LK NUMBER 


1224/ 






POP 








1225k 






IS l 




R SB 




12251 


1 2kfc 


x # 


CCA 








12252 


toti 




TAG 




U2.ll 




12250 


3010 




OCA 




1 A 




1225“ 


13/4 




TAD 




(•2fcg 




12255 


3/80 ' 




OCA 




IC 




12258 


5522 




JPP 


i 


R£AO 




1225/ 


52k 1 


FXXIP, 


CDF 


3 






1225k 


1351 




T AC 




Cl 77 7 




12251 


Ok lk 




DC A 




1A 




12282 


105/ 




TAO 




C 3777 




12250 


04 lk 




DC A 


I 


IA 




12284 


1355 




T&D 




C 7111 




12258 


341k 




DC A 


I 


\ A 




12280 


1357 




TAD 




1 37 7 7 




12257 


04 1 k 




DC A 


I 


IA 




1227k 


1058 




TAD 




17777 




12271 


041k 




DC A 


I 


IA 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming notes, 
software problems, and documentation corrections are published by Software 
Information Service in the following newsletters. 

Digital Software News for the PD P-8 & PDP-12 
Digital Software News for the PDP-11 
Digital Software News for the PDP-9/15 Family 

These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Sales Engineer at your nearest 
Digital office. 

Questions or problems concerning Digital's Software should be reported to 
the Software Specialist. In cases where no Software Specialist is available, 
please send a Software Performance Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms which are provided in the software kit should be fully filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete investigation. An answer will be sent to the 
individual and appropriate topics of genera! interest will be printed in the 
newsletter. 

Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Program Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCOPE magazine 
for its members and non-members who request it. For further information 
please write to: 



DECUS 

Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 
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Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manual . 

Please comment on this manual's completeness, accuracy, organization, usability, and read- 
ability. 



Did you find errors in this manual? If so, specify by page. 



How can this manual be improved? 



Other comments? 



Please state your position. 
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